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ABSTRACT 


This program is an acceptance test for the entire VT61 family 
terminals. The functional oe is based upon a set 
terminal functions which are common Throughout the entire fami 
of vt6l tupe terminals. The functions and their derived test: 
is designed to completely check(at the functional level) ¢t 
terminal micro-processor and associated rams. 


Theres are two distinct modes in which the program can be 
operated. In “auto” mode all DLI1’s with operational VT61’s will 
be mapged and all will be tested sequentially. All tests which 
dc not require manual intervention or visual screen observation 
(Tests 1 thru 20) will be executed for each VTE1 re osptivels, 
All errors will be reper ses on the system console (which is not 
tested even if it is a VT61). 


In Manual mode console entry of the addresses and tests is 
required. The addresses and tests can be entered in a2 
non~sequential manner and the subsequent execution will follow 
the entry sequence. This mode must be utilized to enter the 
keyboard tests, data yo test, and printer controller test. 
equence completion will exit to the re-start point for the 
manual test. 


REGUIREMENTS 

EQUIPMENT 

POP 11 family computer with BK words of memory, a console, and up 
to 16 viel’s connected to the host computer via DL11-A,B,C or D. 
VT61 must be in remote; full duplex and at least 300 baud. 


Procedure for normal binary papertapes should be followed. 
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4. STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
Standard POP 11 format 


SwiS = 1 Halt on error. 

SW14Y = 1 Loop on test 

SWI3 = 1 Inhibit error typeouts 
SWil = 1 Inhibit iterations 

SW1O = Bell on error 

SUS = Loop on error 

Sk8 = Loop on test in SWR<7:0) 


SFECIAL NOTE 


If the computer utilized is a LSI 11 or a 
computer without a switch register. The 
ecegren will utilize locations 174 and 
76 as! A tee register and a 
“switch” regjeter espectively. é 
operator wil] be responsible for the 
loading of the “switch” register location 
prior to starting or restarting the 
progras. 








| 


| 4.2 STARTING ADDRESSES 


200 is the starting address of the “Auto” acceptance test 
204 is the starting address on the “Manual” select test. 


S. OPERATING PROCEDURE 


Following is the operating procedure for the “auto” and “manual” 
modes of testing. 


| 
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5.1 AUTO ACCEPTANCE MODE (SA = 200). 


In this mode the only operator intervention required is SWR 
Ye selections such as loop on test (SWR 11), bell on error 
( C), ect.. The progres will without an external 
intervention, locate the OLII’s with VT61 type units ittached and 
sequentially test all units repetitively with tests 1 thru 20. 


MANUAL UNIT/TEST SELECTION MODE (SA = 204) 


This mode regatres the operator to enter the a 8 | of the 
DLIl’s to be tested (format is 17XXXX, ect, -up to 16 entries). 
The entries must be separated by commas and terminated with a 
carriage return. The aperete® must then, upon program request, 
enter @ list of tests to be executed in the same format as the 
address entry (i.e.yy,22,c/r). Preceeding the terminating 
parel oes return with a octal will result in the tests being 
repetitively executed for all addresses entered. 


plats depressing a@ carriage return when unit addresses are 
pegue ted will result in the mapping and testing of all good 
DLIi’s with operational VT61’s attached. However, the test Tist 
must still be entered via one console!! When ronsteg the 
exercisor in manual mode a control C (03 octal) will result in 
the termination of testing at the end of the current subtest. 


ERRORS-GENERAL 


NO OPERATIONAL VT61 ATTACHED 


If the unit selected (in “manual” mode) or in the sappiog 
operation ("auto” mode) does not result in a unit which i 
capable of pesponding to the test the nesses * 

TO ESCZ2 SEQ. AUTO RETRY IN 30 SEC”. will be displayed on the 
Bonvete every 30 seconds until the test is stopped or a unit 
responds. 


EXCESSIVE “FATAL” ERRORS FROM UNIT UNDER TEST 


If ten fatel errors (incomplete transmit/recieve custes) occurs 
the message “TESTING TED-TOO MANY FATAL XMITS” will be 
displayed and the test will exit to the initial setup sequence of 
the requested mode. If the test then locates an operational 
unit, if will begin testing it. 
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6.3 COMMON ERROR MESSAGES 


ESCAPE SEQUENCE ERROR (ERROR 1) 


This error message is returned when & specific escape 
a eg + did not elicit the expected response from the unit 
under test. mepeens returns test &, error Ag hy count and 
two words which contain ue to 4 bytes of the giting escape 
sequence (i.e. if “TRANSMIT ALL” Tailed; the ESC,0 would 
be ofisplayed in the format BYTE 142=015517,BYTE 3+4= 


RECEIVE STATUS ERROR (ERROR 2) 

This error message is returned if any of bits 12, 13, or 14 
are set in the interface receive buffer register. Data 
displayed is the address of the CSR (Control and Status 
Register) of the failing unit, The contents of the 
forementioned CSR , the error bits from the receive buffer 
register, and the character which was stored when the errors 
were detected. 


SOFTWARE STATUS (VSTAT) ERROR (ERROR 3) 

The location tagged “VSTAT” is used by the program to store 
namic conditions relating to the unit under test. The 

bits which may cause a softuare status error are: 

BIT 15 SET FOR XOFF, CLEARED FOR XON 

BIT 14 SET WHEN START OF MESSAGE RECEIVED 

BIT 13 SET WHEN END OF MESSAGE RECEIVED 

BIT i2 SET FOR A PERIPHERAL ABORT MESSAGE 

BIT 10 SET WHEN AN INTERFACE ERROR DETECTED 


BIT 7 SET he AN XOFF WAS DETECTED AND THE 
TRANSMITTER WAS SHUT DOWN BY THE SOFTWARE. 
BIT 1 SET WHEN TRANSMIT COMPLETE 


The only bit which will unconditionally cause this error is 
BIT 12 (Peripheral Abort) all other bits will be set and 
reset and an error is Sependen® upon expected conditions 
(i.e. after a complete transmission bits 1, 13 and 14 must 
be set and others mentioned reset or an error will be 
reported). Dats displayed is the pass #&, the test &, 
expected status and actual status. 




















HO 


Page 


7 
D. #VT&l HUNG ERROR (ERROR 11) 

This error message is displayed if a complete 
transmission(s) does not result in a SOM(s), an EOM(s) and 


transmit done. This error is a fatal error and ten of these 
errors will result in the test aborting. 


7. RESTRICTIONS 


A. It is imperative that beth the interface and the VT61 should 
be placed in full duplex and remote (not local) mode. 


B. Unit to be tested cannot be the console device. 













C. For the automatic test mapping of the Dl11’s, all addresses 
for the units to be tested must be within the standard DEC 
addresses and vectors. if this is not the case, the 
procedure outlined in Section 8-B must be fo 

esting is begun. 


llowed before 


A. Execution time for the auto selection tests (test 1-20) with 
enehe set to a baud rate of 9600 baud is approximately 90 
seconds. 


B. To test a device (DI11 with vt6l attached) at non-standard 
addresses the location “STRTAB” can be modified to contain 
the lowest of the non-standard addresses and locaton 
“ENDTAB” modified to contain the highest non-standard 
address. All interfaces within the new addresses will be 
mapped and tested if the proper responses are obtained. 


| 

| C. To change the number of fatal errors allowed before testing 
is aborted, location “ALWCNT” (loaded with 10) can be 

| modified to the desired count. 

| 

| 

{ 


D. All tests except T 
mode, therefore al 
to be preceeded by 


Test 23 are run in MAINTENANCE 
sions from the vt6l are expected 


est 
®’ ry 
d terminated with a EOM. 


¢ 
a SOM 


3.0 


9.1 


a ees 


$.2 


3.3 


i 
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9. PROGRAM DESCRIPTION 


INITIALIZATION 


In “Auto” sequence mode this section of the test maps all devices 
in the pre-determined areas. Devices are then tested for 
interrupt capability via the “MAINTENANCE” bit and all its 
which do not or Cannot respond are purged from the table. » 
) 

are 

and 


not respond, or do not respond with the proper 
oa ed. All operational units are stored in a table(OLTB 
ested sequentially. 


d 

‘ 

é 
units are then issued the * 2” sequence and those ubich 

L 


TEST 1 CHECK ALL COMMON ESCAPE SEQUENCES. 


This test issues all escape sequences and insures. the VT61 has 
not failed during an ESU sequence by issuing a ESC 2 to force a 
VTE1 response. The purpose of the teSt is to attempt to insure 
that subsequent tests will not result in a “hung” unit. Date is 
not evaluated. 


All errors are reporteded as Escape Sequence failures(Error 1). 


TEST 2 CHECK MAINTENANCE MODE. 


Routine to insure entering maintenance mode causes SOM and EOM to 
be eppended to all transmits from VT61 under test. Maintenance 
mode is entered, then an escape Z sequence is issued to the unit 
and the resulting response from the vt6l is checked for SOM/EOM. 


Error 22 will be issued if either component(SOM/EOM) is missing. 


TEST 3 CHECK DIRECT CURSOR ADDRESSING 


This test insures that the cursor will respond to direct cursor 
ose gesing- The unit is reset and the cursor position is 
verified to be home. The cursor is then moved to row 23 column 
80 and the position is again verified. 


Cursor positioning errors(ERROR 7) are reported if the positions 
are incorrect. 
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9.4 TEST 4 CHECK LINEAR ADDRESSING MODE. 
Routine to insure the unit can enter linear address 


in 
characters are issued to the unit under test the 
positicn is read and must be rowl, col.0. 


gmode. 81 
n the cursor 


An Escape wr epee error (ERROR 1)is issued if the cursor is not 
at rowl,col. 


§.5 TEST S CHECK XON/XOFF FROM YT61 


Test to insure operation of XON/XOFF commands from VT61. XOFF is 
forced by transmitting the data on line 23 while simultaneous! 

filling the silo with néw data. After sensing the XOFF, the tes 

waits for the transmit to finish and insures XON occurs before 
the mazimum transfer time has elapsed. (30 seconds} 


Errors are reported if the format of ERROR 3(VSTAT errors) and 
will reflect either lack or excess of Bit 15. 


9.6 TEST & CHECK XON/XOFF TO VT61 


Routine to verify operation of XOFF and XON to the VT61. A full 
screen transmit is initiated and a series of XOFFs and XONs are 
issued to the terminal soquessiateg Errors are reported if a 
XOFF does not stop, or a XON restart the transmission. Test is 
ended when EOM is sensed. 


Errors are reported(Error 15 for XOFF failure and Error 16 for a 
XON failuredas specific error messages. 


§.7 TEST 7 CHECK RAM AND COMMUNICATIONS PATHS 


Routine to test VT61 RAM and the communication paths. This 
routine issues a series of full screen patterns (777100, 100/77, 
52/125, incrementing, and rev. video incrementing) to the VTb6l: 
The full screen is then transmitted to the host and after each 
iteration received data is checked and all errors (including 
transmission) are reported. 


Errors reported could be ERROR 2 for a Receive Status error, ERROR 
4 for data errors and ERROR 5 for a Receive Byte Count error. 


foe a na a 
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9.10 TEST 10 CHECK TRANSMIT AND RECEIVE CHECKSUNS. 


Routine to test the ability of the VTS1 to calculate and transmit 
checksums of both transmitted and received data. Subtest “A” 
transmits a full buffer updating a calculated checksum on each 
cheracter transmitted. An escape sequence requesting the 
receiver checksum is embedded at the end of xmit buffer and the 
received checksum is compared to the Sp jeuietee. Subtest “6” 
performs the same type of check on the VT61 transmit checksum Con 
utilizing the data sent to the VT61 in subtest “A”, during a full 


screen transmit. : - 
rror 13 is issued(with calculated and received checksum) if a a 
eceive Checksum error is detected. Error 14 is issued (with roe 
sone i as ERROR 13) if a VT61 Transmit Checksum error is 
etected. 


9.11 TEST 11 CHECK BASIC CURSOR COMMANDS 


Routine to insure basic cursor commands result in correct cursor 
movement. Commands are issued in the sequence: reset, cursor 
right, cursor down, cursor left, and cursor up. The read cursor 
position command is issued alter every move cursor command and 
received position is compared to the expected position and any 
errors reported. 


An Escape Sequence error(Error 1) and a Cursor Positioning 
error(Error 6) are issued if any functions are detected to fail. 


9.12 TEST 12 CHECK READ CHARACTER AT CURSOR 


Routine to insure that read character at cursor functions 
correctly. Command sequence is: reset, A, cursor left, read 
character at cursor. An error is reported if the character 
received is not an “A”. 

| 


An Escape Sequence error(Error 1) and a Data Compare error(Error 


4) are issued if a failure is detected. 


| 
| 
| 


9.13 TEST 13 CHECK REPLACE AND INSERT CHARACTER MODES 


Routine to verify operation of replace and insert mode. 
Initially row O is written to 80 ieorenga stag characters; on the 
first pa’s (replace mode) a character(172) Is replaced at the 
home position and the characters at rowQ, col.O and rowl, col.O0 
are read and verified to be a "172" and a “Null” respectively. 
On the second pass, insert mode is entered _ the resulti j 
insertion (at the home position) is verified. Row, coi.O shoul 
be “172” and rowl, col.O should be “161”. 

If an error is detected in either mode,the appropriate Escape 
Sequence error(Error 1) is issued. 


ee da. 
9.14 TEST 14 CHECK VT61‘SCRULL CAPABILITIES. 


Routine to insure VT61 will scroll if a line feed is issued from 
row 23 or a data insert from row 23 col. 79. In subtest “A”, 
row 0 is initially written to a O and row 1 A 1. After 
completion of a line zoos ged resulting scroll) row OO, col. 

is expected to contain A l. In subtest “B", the cursor is placed 
at rowe3, col.79 and a data character “A” is entered. The cursor 
position is then read and should be row23, col.00. The char. at 
ome is verified to be a null. 


A Scroll error(Error 23) is issued if either functions fail _ to 
elicit the proper response from the unit under test. the ERROR 
PC will distinguish between the failing functions. 


| 9.15 TEST 15 CHECK ALL SCREEN ADDRESSES. 


This test insures that the VT61 cursor can be positioned to every 
poreiete row/column position on the screen. This is tested b 
illing the complete screen (except Row 23,Col.79 which wil 
contain a "Null”) with the character “A” and then positioning the 
cursor (via DCA) to overs position and the “A” at that position 
is replaced with a spaceloctal 40). The screen is then read to 
verify that ante spaces exist on the screen. All positions 
containing non~Spaces are reported. 


All errors detected will be reported as Direct Cursor Address 
erros(Error 7),and will contain the position the bad data(non 
“space) was detected at. 


ae ne re re ee ee eo 
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"9.16 TEST 16 CHECK LINE FEED AND CARRIAGE RETURN 


Routine to insure proper operation of carriage return and line 
feed during normal mode. Initially the cursor is set (via 
D.C.A.) to rowD, col 20 and a line feed is issued, the cursor 
position is then read and must be rowl, col.cd. A —- 
cd ae is then issued and cursor position verified to be rowl, 
col0. 


An Escape Sequence error(Error 1) and a Cursor positioning 
error(Error 6) will be issued if an. error is detected. 


TEST 17 CHECK ERASE TO END OF SCREEN 


Routine to verif peeer sesretion of erase to end-of-screer. 
Screen is written to 1920 incrementing char. Erase to end of 
screen is then issued and the entire screen is read verifying 
that it is all nulls. 


If any non-null positions are detected, and Escape Sequence error 
(Error 1) and a Bata error(Error 4) will be issued. 


TEST 20 CHECK SELF TEST, COPIER, AND TISSUE END OF PASS. 


SELF TEST (ESC T) is issued to the unit under test and an Self 
Test error(Error 10) is issued if the unit cannot respond to an 
“Escape 2” sequence after self test is complete. If self test is 
successful the screen is written to 23 lines of incrementing 
characters and 23 lines of incrementing char. in reverse video. 
The “Ident” is then checked and if a copier is present a copy 
screen command is issued (NOTE: This command will cause the uni 
to be “busy” and not respond to any further commands until thz 
screen has been completely copied.) 


If the Ident indicates a copier is sent_and the COPY SCREEN is 


re 
initiated,but mot completed, a PERIPHERAL ABORT” (Error 20) 
Error is issued. . 


#£#END OF AUTO-ACCEPTANCE TESTS#e# 
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9.21 TEST 21 KEYBOARD ECHO TEST 


Routine to echo the keyboard. Keys for tab, bell, carriage and 
line feed echo a mnemonic, non-display char. echo octal 
equivalents. and eg char. echo themselves.  (ezamples- 
char., space, ESC, spate or 037, space.) A Control C (003) will 
cause a test exit. : 


9.22 TEST 22 TEST A LINE PRINTER(PRINTER CONTROJLER MODE) 


Routine to utilize the VT61 as a printer controller. After ¢ 
messajé is displayed, the test waits for a C/R before actua 
entering test. attern of incrementing, rolling char. will 
outputted until a Control C (003) is received. 


If the Line Printer is disabled after the initialization of the 
test, a “PERIPHERAL ABORT” (Error 20) is issued. 


if 


3.23 TEST 23 UNIT SIMULATOR TEST 


Routine to loop data/commands from the VT61 back to the VYT6l. 
Data transmissions resulting from a ESC sequence will also be 
looped and will enter the screen at the cursor position. This 
test can be used to simulate, or create, specific screen patterns 
and operations. A control C (003) exits test. 


§.24 TEST 24 PRODUCTION KEYBOARD TEST 


Production keyboord test. All keys must be depressed in the 
sequence indicated on the screen. All errors or mistakes are 
displayed in octal positional format and the correct key position 
| in the row is displayed in decimal. This test “is run in 
maintenance mode, therefore the keys will echo their position 
| not their indicated mnemonic. The exceptions are the individual 
tests for the shift and control functions.These tests are 
explicitely defined by geseages to the cperator. 10 errors will 
cause an automatic _ezit from test. 

46 COMMON 

| 





1 AGS 
188 ERROR POINTER TABLE 
1844 END OF: PASS ROUTINE 
3503 SCOPE HANDLER ROUTINE 
3568 ERROR HANDLER ROUTINE 
3613 TYPE ROUTINE 
3691 ERROR MESSAGE TYPEOLT ROUTINE 
3748 BINARY TO OCTAL (ASCII) AND TYPE 
3826 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
Bem POWER po AND UP ROUTINES 
TRAP DECODER 
| _ 3950 TRAP TABLE 
| MAINDEC-11-DZVTH-A MACYi1 27(732) 20-SEP-76 10:22 PAGE 1 
| OZVTH.P11 
l -NLIST MD,MC,CND 
e -LIST 
3 -TITLE MAINDEC-11-D2VTH-A 





"creer —— 












~ :@COPYRIGHT (C) 1976 B02 
¢ :@DIGITAL EQUIPMENT CORP. 
2 : amy , Mass. C1754 
: : #PROGR AM By P. NELSON 
19 :#THIS PROGRAM WAS ASSEMBLED USING TH oped MAINDEC SYSMAC 
ii ; #PACKAGE (MAINDEC"11-02GAC-B1),AUG 19,1975. 
13 
| .SETTL OPERATIONAL SWITCH SETTINGS 
ié i SWITCH USE 
ad oe er eee eas = | ee ee 
ig :+ 15 ERROR 
1s st 14 LOOP TEST 
Fa :* 13 T TYPEOUTS 
= Le il INHIBIT ITERATIONS 
22 16 10 BELL ON ERROR 
es 24 3 LOOP ON ERROR 
es t# g LOOP ON TEST IN SWR<7:0> 
! e .SBTTL BASIC DEFINITIONS 
zt -#INITIAL SS OF THE STACK POINTER ### 1100 ### 
Fe) 001100 STACK= tt . 
z EEN Gor-ES? | ::BSIE DEPNITEON oF ERE CR 
# 17 PS= 77776 + BRcESCOR utitoe WORD 
EQUIV PSW 
3c i mt EAE MTT REGo? BEQUEST REGISTER 
= 1 Dake i 3 HARDWARE ein RECTSTER 
Ed 177570 DOISP= 177570 3;HARDWARE DISPLAY REGISTER 
| 
33 -#GENERAL PURPOSE REGISTER DEFINIT 
| 49 Ro= 0 $3 REGISTER 
, 4] 550001 Ris = 1 35 REGISTER 
42 900002 Ro= %2 .: GISTER 
43 900003 R3= %3 +e GIs 
2 Be = 3 iGieme elt 
Ro= %, He ct T 
| 3 riven R7= 3 : : GENERAL ret STER 
| 48 -EQUIV R6,SP 3;STACK POINTER 
33 EQUIV R7,PC $8 COUNTER 
ci -¥PRIORITY LEVEL DEFINITI 
| 2 oo0000 Pros oO lo ORITY LEVEL 0 
|B Bie me emigany HE 
| 2 900140 pase 199 EPR ORY LEVEL § 
PRY= 3 3PRIORITY 4 
| MAINDEC-11-DZVTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE 2 
| DZVTH. PL BASIC DEFINITIONS a SEQ 0013 
a ooce4o 240 ; PRIORITY LEVEL 5 
37] 300 PRes 300 s SPRIORITY LEVEL 6 
| 2 ;;PRIORITY LEVEL 7 
| 
61 -#"SWITCH REGISTER” SWITCH DEFINITIONS 
| be 400000 ou 400000 
040000 Su 40000 
Pa ae ___ 020000 Su 20000 








COe 


INITIONS (BITOO TO SIT1S) 


Sere oot 
Silcetecc... SASH wee Bs=====-8 
a6 00 00 08 80 08 68 80 08 88 08 08 88 ptt ot tat tt AA 
Sas eagsgccccusecss S=ooceee eee eee eesasaaas 





wr 62 (782) s5-SeP- 


BASIC DEFINI 


up 
= 
000010 


a Spe eacesceeee: 


DB BORER BO Bo OoDGORTARTRR A RP COS GOO OOS OE 


= 
a 
#3 


C-11-DZVTH-A 


Pll 


ee eee 






) 
OT) ##SCOPE## 


INT TRAP (BPT 
TRAP (I 


T/ 


S 
AND OTHER ERRORS 
Sod 88 ELE Scrios 
TRAP 


g 
TOE RTOR TRAP (EMT) *##ERROR## 


331 
338 
$3 
$3 
¢° 
33 


IC “CPU” TRAP VECTOR 


eae See 


EB OTANI | 
ESR 


is 
128 
129 
30 
31 


TER ooMMRMENIeS 


Os Bs FB Bs 8-4 BB - he B  =h 8 
2 = Bae 2 Go De fe 0 Pe Pe fe Pe 


re 
SoSH 


gee sacaananeeeeeeescestttag! 


a 
P-S e 
ru 


—— 


ee Oe en ee ee ee ee ee ed ee ee ee eee a _ fe oe 
G2 9 0 = FS FS bb Fh 2 Fe Bt ee = bb BP B= 8 be ht st ee 2 Be = ps ee ee 


| JSLELGRRLGUSEEGCSRERSRINSTEVSRZOCBS 


~~ 


7 
‘IO 
ile 
| | ewogee 


| 
t 


i 
| 


O0e2t2 
MACY11 271732) 
CHER 


000377 


MACYII 27(732) 
AGS - - mee 





TRAPVEC=34 ; TRAP 
TKVEC= 60 ;;1TY KEYBOARD VECTOR 
2 INTER VECT 


TFVECS 64 ssTTY 
PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
-S8TTL TRAP CATCHER 


;¥ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.42,HALT™ 
S¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
$sCOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


=] 
ISPREG: .WORD O ;; SOFTWARE DISPLAY REGISTER 
G: .WORD 0 ;;S0FTWARE SWITCH REGISTER 


;USE AUTO SELECTION OF UNITS 
;ALLOW OPERATOR SELECTIONOF UNITS/TESTS 


START: JMP AUTO 
MSTRT: MANS 
20-SEP-76 10:22 PAGE 4 


5 ARASH ER REE EE REE ERE EERE EE EE EES 
-SBTTL COMMON TAGS 

;¥THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

;#USED IN THE PROGRAM. 






-71100 

SCMTAG: ;;START OF COMMON TAGS 
SPASS: .WORD 0 ::CONTAINS PASS COUNT 
STSTNA: “BYTE : $s CONTAINS THE TEST NUMBER 
Hae “FORD 0 + CONTAIN Bt NEST TTERATION COUNT 

: .WORD O >: CONTAINS LOOF ADDRESS 

: :WORD O : CONTAINS TURN FOR ERRORS 
$ER 2. - 0 *:CONTAINS TOTAL ERRORS DETECTED 
ITEMB: .BYTE O *:CONTAINS ITEM CONTROL BYTE 
SERA: . i >:CONTAINS MAX. ERRORS PER TES 

: .WORD O ::CONTAINS PC OF LAST ERROR INSTRUCTION 
er: OD S RONTRING ADDRESS OF "Gooe DoTa 
SEbpat: “WORD OD tT EONTAING "e500" DATA 
SBODAT: .WORD 0 *:CONTAINS BAD’ DATA 

ee ::RESERVED--NOT TO BE USED 

Paar, Mt BBd> —HSUNEES AUTO ZIT, 
STKS; 1798 2:T ei rat 
STKB: 177562 >: TTY KBD BUFFER 
STPS: 177564 +3 TTY PRINTER STATUS REG. ADDRESS 
sire: 1 TTY PRINTER BUFF REG. ADDRESS 

"vie 0 HeOWatnS ROLL cheno FOR FILLS 
SFILLS: . 2 CONTAINS 8 FEILER CHARACTERS REQUIRED 
fate “Bae i dipinied bublrgie® ttc calf irs cdees 
Ha : 7 > MAX HUMBER OF ITERATIONS 





$2079 <377)<377) i Fok eet rate 





: .ASCI 

: ASC ; sQUESTION 

s ASC «15> A IAGE RETURN 
on | : ssLINE FEED 


~SeP-76 











5 RRERARAELAL LA LLAL LAE RAERERE LARA LAL AL AA LEELA ALLA LE ALAR EELELALELS 


-SBTTL ERROR POINTER TABLE 
;*#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


ieaflon'st SiTEne. aie urge g INDICATES HICH? ITEM IN THE. TABLE IS PERTINENT. 
; #NOTE PERT DATA_IS (SERRPC). 





BBSRRLSC LESSER 


THE ONLY PERTINENT 
S SNOTES: EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOMS: 
;% EM ;;POINTS TO THE ERROR MESSAGE 
i+ OH s3POINTS TO THE DATA HEADER 
te OT :;POINTS TO THE DATA 
;# SIPOINTS TO THE DATA FORMAT 





200 
1 001172 SERRTB: 
ate GENERAL ESCAPE SEQUENCE ERROR MESSAGE 
204 001172 023201 EMI AN ESCAPE SEQUENCE TO VT61 FAILED. 
20S 001174 Oescbb DHI TESTS, ERROR PC,2 SEQUENCE BYTES,2 SEQUENCE BYTES. 
206 001176 OO!422 DTO 
207 001200 001442 DFO 
eos ;RECEIVE STATUS ERROR MESSAGE 
211i 001202 023321 EM2 RECEIVE STATUS ERROR 
ele 001<08 023361 Ole ADDRESS, STATUS ,ERR. BITS, CHAR. 
21 1206 001452 Te 
el4 001210 ooi442 DFO 
216 
el? ;RECIEVE SOFTWARE STATUS ERROR MESSAGE. 
el 001212 ge34e0 ae ;SFT (SIAT) STATUS ERROR 
001214 1 :PASS#, TEST#,GOOD STATUS,RECEIVED STATUS 
221 O0l216 001500 DOTY 
222 O01 001543 DF6 
s ona smo 
226 001222 023530 EMY DATA EXPECTED DOES NOT MATCH RECEIVE DATA. 
ee rs 1ge4 i DH :TEST#,REC. CNT. ,EXPECTED DATA, RECEIVE DATA 
63 001230 00144 OF 
oak sRECEIVE BYTE COUNT ERROR 
es 001 023642 EMS BYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED. 
1234 I DHS *BYTES EXPECTED, BYTES RECEIVED 
5 Opisus | OOLYED Bre 
es 1 1 2 
ex ;GENERAL DIRECT CURSOR ADDRESS FAILURE 
MAINOEC OTHERS Y11 27(732) 20-SEP £10 22 PAGE & a ee 
DZVTH. P11 ERROR POINTER Thee ; SEQ 0017 





;GD LINE, GD COL., BD LINE, BAD COL. 


yy 3 





DH 
OTe 
OF3 


fanz 
Ses 
| Baz 
= 
2 


pone ee 











seek 


ok a oe oe 


S888 8888 


pew bm bao pie 


Be | «BSN 


Ww 
-_ 
oOo 


BREESE IRAE ORS Baa VN san Se ORT ORS RRO ee Ske 


RE 


;DIRECT CURSOR aobrbdeernon 


Ef PSE URE RESO 
OF6 


;LAST TEST-SELF TEST FAILED 


EM1O sVT61 FAILED SELF-TEST FUNCTION 
DHL CSR, VECTOR 
Br 
-VTb1 FAIL/HUNG ERROR MESSAGE 
EM11 *LAST TRANSMISSION TO VT61 CAUSED VT61 TC FAIL/HANG 
:PASS#, TEST#, ERROR PC 
Bra 
;GENERAL TEST FAILURE-PRECEEDS DATA/POSITION ERROR 
EM12 ;VT61 UNDERR TEST FAILED-ERROR DATA FOLLOWS 
DH? :PASS#, TEST#, ERROR PC. 
DT3 
OF4 
RECEIVE CHECKSUM ERROR 
EM13 :VT61 RECEIVER CHECKSUM ERROR 
DHle >PASS#, TESTS, GD.CKSUM, BD CKSUM 
DF6 
; TRANSMITTER CHECKSUM ERRROR 
EMI ;VT61 TRANSMITTER CHECKSUM ERROR 
OT4 
DF& 
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z 
2Y 
cb 
5 
3 


evil eZ (7de) 


ween 2 


= 





SEQ 0018 


EM1S ;XOFF TO VT61 FAILED TO HALT BLOCK XMIT 
DH13 ;PASS, TEST, VSTAT 
DT 
DF4 

;XON FAILED TO GESTART BLOCK XMIT 

PAGE 7 

fais ;XON TO VT61 FAILED TO RESTART BLOCK XMIT 
DT6 
OF4 


;NO XON AFTER UNIT WAS RESET 
EM17 ;NO XON AFTER UNIT WAS RESET. 








Secs 


WWUIGWWIUWIWIWLIG) 
0 0-0 b= 0 be Be bo hn Bae 
WONWUIL WruNH® 


8888 
Saad 


BSSSRREOS ASSN ER OBES SOO ES 


= 


> 


oOo 
- 
io 


ro 


pasa dab tai 


828 
cree 8 86BaY 
g 


aah 
Be 
= 


<= 
hee 
Oo 
8 
pe 
uw 
-S 
w 


001124 
000900 
000 


001450 001 001 

001124 001122 
O0e22e6 O01116 
i 001 001 


MACY11_27(732) 
POI TABLE 


11 001124 
1e0 001124 


00 
001472 


-88 
‘is 
2 as 


Ps Bae Bae he fet bn Ge bs Bee be he 


geseeeseses = 
SORRENTO RS 


DTO: 


DTl: 
DFO: 


DF 1: 
DFe: 
OTe: 
DT3: 
DF3: 


DH? 
DTé 
OFY 


GO2 .passs, reste, eRROR PC 


;PERIPHERAL ABORT ERROR 


EM2eO 
DH14 
DOTY 
DFE 


;LAST PERIPHERAL OPERATION ABORTED. 
;PASS, TEST,ERROR PC, VSTAT 


;CANT CLEAR PERIPHERAL ABORT FLAG. 


;COULD NOT CLEAR LAST ABORT FLAG. 


;MAINTENANCE MODE DID NOT FORCE A SOM/EOM. 


EM22 
DH3 


DT4 
OF6 


;S0M OR EOM NOT REC. IN MAINT. MODE. 
;PASS#, TEST#,EXP.STAT, ACT.STAT 


;LINE FEED OR CURSOR RIGHT AT ROW 23 DID NOT CAUSE A SCROLL. 


EM2e3 


WORD 
-BYTE 


;NO SCROLL FROM LINE FEED OR CURSOR RIGHT. 


TSTNM, SERRPC , SGDDAT , SBDDAT ,O 
SGDDAT , SBDDAT , 0 


0,0,0,0 

0,0 

1,1 ;DECIMAL TYPE 
SGDADR; SGDDAT, SBDADR, SBDDAT, 0 
SPASS, TSTNM, SERRPC, 0 

ii. 
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OT4: 
DTS: 
DTé: 


4: 
S: 


SPASS, TSTNM, SGDDAT , SBDDAT, 0 
TSTNM, SGDADR , SGODAT , SBDDAT , 0 
SPASS, TSTNM, SGDADR, 0 


689 1 


1,0,0,0 


; INSTRUCTION DEFINITIONS 


SEQ 0019 





NIEES 


BREBISIRREC LS SEO R EOE sol otal 2 


WeU 


eee 


eee 


PUSH2SP =24646 HO2 


pennnanocenanneveretesseuceutsneccueussuscuasecenen’steaseeeuue 
FINITION SOFTWARE STATUS(VSTAT) REGISTER BITS 
aR REE ESTERS EEEESERES SSS ET EEE EE 


RXOFF  =100000 ;SET FOR XOFF, CLEARED FOR XON 
OM  =040000 ;SET FOR SOM {START OF NESSEGE ). 

REOM 2020000 se! FOR EOM i MES 

RSTT =0040 SET FOR RECEIVE STATUS ERROR. 

CKSUM eri :SET T k Mee 61 REC. CHECKSUM + 

EPL =091000 :SET WHEN END OF LINE DETECTED ? 

ESC =000400 *SET WHEN OCTAL 339 RECEIVED. 

XMKIL = :SET WHEN IT KILLLED. 

T =0001 SET TO CALCULATE 6 XMIT CHECKSUM 

REVID *SET WHEN REVERSE VIDEO MODE RECEIVED. 

C 2000020 *SET TG CONVERT REC. CHAR. BY -137. 

CURPOS =000004 >SET WHEN CURSOR POS. RECEIVED 

TRMID =000002 SET WHEN TERMINAL I.D. RECEVED. 

XMDNE  =000001 -SET UPON TRANSMIT COMPLETE 


nn eetten oF me tt teem Gee 


DEFINITION OF DL11 CONTROL BI 
itiiititiiiitiittitiititiitittttitttiiitiittrticirteti tei tet iy: 


CON =200 
DSCHNG =100000 
RDENA =000100 
RERR #§ =100000 
RORUN =40000 
RFMER =20000 
RPAR =10000 
TROY =00200 
TENA. =00100 
MAINT =00004 
TCOMB =00104 ;COMBINATION INTERRUPT ENABLE AND MAINT. 


a 


SRSRSGAGGAGAEES ERE 


408 
toh oT allele 
0 Pll ERROR POINTE 


001766 





cESeeee 


‘ee 


00011 
00011 


CLFT: .WORD 104 ;CURSOR LEFT D 





102 


TOTCH =1920. ;TOTAL CHARACTERS ON SCREEN 


TOTC] =1921. ‘TOTAL SCREEN +1 
Pertti iittittitittititiitiitiitiiiitiiee LLL 

FOLLOW ARE DL11 ADDRESS AND VECTOR STORAGE TABLES 
20-SEP-78, 10:22 PAGE 9 


ORR Bree ER OTE TT ECT ae 
CT: ‘ 20 + Boop pitt 5 Sabre 

BL BL: .BLKW e0 ;G0 11 TABLE 

INTAB: .BLKW 20 ;TABLE OF POSSIBLE DL11 ADDRESSES 





;CURRENT POINTERS FOR ADDRESSES AND VECTORS 
WORD ; VECTOR INDEX 


VECPT: : 
DLTPT: .WORD S x 
*ADDRESS TABLES iRDORESS NOE Aces 
STRTAB: .WORD 176500 sDL11A/B 
: 175610 *DL11 C/D/E 
“WORD 
ENDTAB: 176676 ;DL11 A/B 
-WORD 176170 *DL11 C/D/E 
.WORD 0 “END OF LIST MARKER 


; MAMEAEERAREEEEEEREERESEOOEEEEEDIESEEEEREEREENETEEHEESEEEEENE 


ADDRESSES IN TABLE REFLECT UNIT UNDER TEST 
, eeneeeeeaaaaunahsasuansssEnSaeaesaeeGEaSGTESENsSEERREGC00074 


: .WORD QO 
VRBUF: .WORD 0 RECEIVE DATA BUFFER 
VXCSR: .WORD 0 XMITTER CSR 
VXBUF: .WORD XMITTER DATA BUFFER 
VECT: ;VECTOR FOR UNIT UNDER TEST 
CRCSR: .WORD O CONSOLE RECEIVE CSR 
CREUF: .WORD 0 ;CONSOLE DATA BUFFER 


ee eee TMELE OF Viel CNW AOD SEQENES 
FP rrtiiitititittiiiitittiititititititiitti tii titties 


BEL  =007 

BEL: .WORD 007 BELL 

CARRT =015 

CARRT: .WORD O15 sCARRIAGE RETURN 

LNFED =Ol2 

LNFED: .WORD Ole2 sLINE FEED 

TABSi«é=OLLL ne 

1 GHEE HEHE HEHEHE HEHE HEE HEHE EEE EE 
: 1 “TABLE DELIMITER (ESCN) 

PF rititit iii ii ttititttiiiiitiiti ttt titi iit tte: 

CHOM =] 

CHOM: =hARD 110 sHOME CURSOR H 

.CRT =103 

CRT: .WORD 103 ;CURSOR RIGHT C 

-COWN sl 

CDWN: =hDRD 102 sCURSOR DOWN B 


-CLFT =104 





480 
4 

483 
484 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
e 
509 


UNUNTUN UU Un Gn Unt 
Os sn 0 ee 
WOnNwTU Sw O 


BE 
HY 
=m 


464 
MAINDEC- 11-D2VTH=8 
DZVTH.P11 


002010 


902012 


002014 


002016 


002020 


002030 
002032 


002034 
~11-DZVTH-A 


Pil 





MACY11_27(722) 
ERROR POINTER TABLE 


92 88 BB adm S582 


88 8888 88 88 88 BEBE BERS 


SN row 


Peo be Bas pe ee 


MACY11_27(732) 
ERROR POINTER TABLE 


_ERPL 
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. CUP =101 

CUP: -WORD 101 sCURSOR UP A 

.£0S =lle 

EOS: -WORD 112 sERASE TO END OF SCREEN J 
.EPNT 2127 

EPNT: .WORD 127 ;ENABLE PRINT MODE. W 
-DOPNT <2=130 

DPNT: .WORD 130 ;DISABLE PRINT MODE xX 





et ee a oe en fee DE COE re 


WORD E DELIMITER (ESCO) 
, SeREEREeE PEER TREE SEAEEEEREAL EST EEES ESET EE EEL SS SS GEESE 





.EMAIN =101 
ENAIN: = HORD 101 ENTER MAINTENANCE MODE A 
DOMAIN: .WORD 141 EXIT MAINTENANCE MODE SA 
-LKKB 2105 

{KKB:  .WORD 105 ‘LOCK KEYBOARD E 

UNLKKB =145 

UNLKKB: .WORD 145 sUNLOCK KEYBOARD SE 

-DRECi =103 

DRECT: .WORD 103 ENABLE LINEAR MODE C 
CLRCK =133 

GLRCK: .WORD 133 CLEAR RECEIVER CHECKSUM [ 
-CLTCK =134 

CLTCK: .WORD 134 CLEAR TRANSMITTER CHECKSUM 
.EEMP = =112 

EEMP: -HORD 112 ENABLE REVERSE VIDEO J 

oERP. “WORD 152 sDISABLE REVERSE VIDEO SJ 
-IABT <=137 

iagT: . 137 s INITIALIZE ABORT FLAG - 


EEE TE DELIMITER choca Pree 


WORD TABLE DELIMITER (ESCAPE P 
err ht eee Sener Tene terns errr ret tert ea eee 


.EAPNT =131 
EAPNT: WORD 131 sENABLE AUTO PRINT MODE Y 
DAPNT: .WORD 171 DISABLE AUTO PRINT MODE SY 


, T 1 
EINST: .WORD 111 ;ENABLE INSERT I 
20-SEP-76 10:22 PAGE 11 


=151 











002036 000151 ERPL: .WORD 151 K0e ;ENABLE REPLACE SI 


522 
zs 
ese ae a ae GT TL 
002040 o00004 .WORD 4 ABLE DELIMITER (1/0) 
ees /uscecacereveccescccesseeseescebersssasssnctenesisessehennnnnns 
054432 .DCRAD =054433 
530 oo02t42 054433 DCRAD: .WORD  OS4432 sDIRECT CURSOR ADDRESSING 
531 067467 .R23C79 =067467 
S32 002044 967467 R23C79: .WORD 067467 sCUIRSOR TO LOWER RIGHT 
$33 oo0e046 o00000 “WORD O 
535 oo20sc 047433 RCUR: .WORD 047433 sDIRECT CURSOR ADDRESSING 
536 000131 .Y =131 
537 000131 "ROCUR =00131 
538 oo20S2 000131 PDCUR: .WORD 00131 READ CURSOR POSITION Y 
o33 002054 900000 “WORD 0 
S41 000117 .0 =117 
S42 o02e0S6 047433 ESCO: .WORD 047433 ESCAPE 0 
543 000126 XMTAL 2000126 
S44 002060 000126 XMTAL: .WORD OOO126 sTRANSMIT ALL V 
EA 002062 000000 WORD 0 
547 002064 047433 .WORD 047433 sE'SCAPE 0 
54g 000127 .TCUCH =127 
549 O02066 000127 TCUCH: .WORD 1027 sXMIT CHARACTER AT CURSOR. W 
50 002070 WORD 0 
S52 002072 047433 .WORD 047433 sESCAPE 0 
553 000135 .TXRCK =135 
5S4 902074 000135 TXRCK: .WORD 135 sMMIT RECIEVER CHECKSUM 1] 
B55 002076 000000 "WORD O 
557 002100 047433 .WORD 047433 ESCAPE 0 
3) 000136 -TXTCK =136 
559 002102 000136 TXTCK: .WORD 136 -XMIT TRANSMITTER CHECKSUM 
360 002104 o00c33 “WORD O 
S62 002106 147423 .WORD 147433 ESCAPE 0 
563 000140 .RABT  =140 
564 002110 000140 RABT: .WORD 140 sREQD THE ABORT FLAG. \ 
bbs 002112 900000 "WORD O 
S67 en ee ee oe te teenie 
S68 002114 177777 .WORD <1 END OF TABLE TERMINATOR 
Bea EHARARE ES HEE HEE LES SEE 
2 eiide--11-1--+* ja hailed 
ee PTT TT TTT PerErtiMterttrtttt Tit TTT Tt TT TTT TTT TTT TTT TT TT TTT 
000135 .CPYSC 2135 sCOPY SCREEN 
ere 000136 “ENAC =1236 *ENEBLE AUTO COPY MODE ESC t 
MaI c-11-D2VTH-8 MACY11 27(732) 20-SEP-76 10:22 PAGE 12 
DZVTH. ERROR POINTER TABLE 





278 000150 -PSCRN =000150 SPRINT THE SCREEN 


| 77 000137 -DISAC 2137 ;D:SABLE AUTO COPY y's ESC - 
| ;ESCAPE CODE EQUIVALENCES AND IDENTIFIERS 


eed hahahadahaiaiadal—1-5-+-+-t lab ttt tah Sth ted tattle fetta ttt aaah 


SEQ 0023 





$33 
S84 
585 090033 
586 000120 
002116 050033 
588 000124 
589 002120 O0001e4 
599 002042 
591 000057 
C001 
593 900107 
S34 000171 
595 0001 
596 000170 
597 O0el2e 0000 
598 002056 
$99 002116 
600 0021 
601 0550 
602 O0ele4 OS 
603 000122 
a4 002126 O00le2 
POs 002130 000033 
O0ei3e d20041 
608 002134 032041 
6039 002136 O2e0066 
610 002140 20054 
bil 020067 
Sle OOel42 Oe0067 
613 025440 
614 002144 025440 
615 032040 
616 002146 032040 
617 002150 de4040 
618 O021Se 20040 
619 002154 et 
620 O0elS6 06706 
bel 000040 
bee 000041 
eet 00066 
bs goo0e? 
626 000040 
627 000043 
628 000050 
629 000053 
630 000064 
631 0006S 
632 000110 
MAINDEC-11-DZVTH-A MACY11_27(732) 
DZVTH.P1l ERROR POINTER TABLE 
633 000157 
634 
635 
636 
637 
638 
639 000002 
~640 000004 
Bae 0008] 
G43 e160 000000 


ene comme wees - 


XON 
‘CHRD: WORD 0 


HEHEHE HEHE HEHHHEHHHHHE ha bd HEHEHE HEHEHE HEHE 


-ESC =033 sPRIMARY ESCAPE CODE. 
ESCP: -KORD 050033 sESCAPE P 
TSTER =124 


TSTER: “IE 0 124 sTEST TERMINAL(ESC 0 T) 


ESCYI =DCRAD *ESCY I EQUALS DCRAD/ DCRADI 

LSH =000057 ; L CODE FOR TERMINAL IDENT ES 

CKGP =106 sENABLE REC.TO SUB 137 FROM ALL REC DATA 
NCKGP =107 s ENABLE NORMAL RECEIVED DATA. 

CPABRT =171 *COP IER ABORT 

PRABRT =172 PRINTER ABORT 

NABR =170 


NO ABORT _SX 
IDENT: .WORD O :VT61 IDENT CODE 


UMN 
s0cT TAL eauTV. 0 CURSOR HOME. 
ROM H 2, CL COL. umy.e 


ESCPI  =ESCP 
ESCZ2I =€5SCZ 
CZ =055033 
SCZ: ; WORD 0ss033 sOCTAL EQUIV. OF ESZ SEQUENCE 
RESET: .WORD 122 ;VT61 INITIALIZE R 
ESCN: .WORD 0000 sESCAPE N-FLAG 
RoicGO: :WORD O20041 *ROWL, COL. O 
ROIC2O: .WORD O32041 *ROWOL, COLUMN 20 
R22eCOO: .WORD 020066 *ROW22, COL. 00 
RiecOO: .WORD O20054 *ROW 12,COLUMN OO 
.R23C00 =020067 
Resc00s =HORD 020067 ;ROW23, COL. 00 
ROOCI1: .WORD  O2S440 sROW,COL. 11 
.ROOC2D =032040 
ROOC29: .WORD O32040 sROW O,COLUMN 20 
ROOCOS: .WORD Oe4040 ROW 00. COL 


=40 
1 =41 RO ? 
Ri2 = =54 sROW Le 
“Ree = =b6 sROW 22 
Re3 =67 sROW 23 
00 =40 SCOLUMN O 
C0343 :COL. 
COB = =50 ;COL. 8 
Cli 6 =53 sCOL. 11 
C20 =64 :COL. 20 
“Col = =B5 ;COL. el 
C40 =110 ;COL. 40 
20-SEP-76 10:22 PAGE 13 
C79 -=157 ;COL. 79 
ha taladadadaiet tet t-4-+- trial t-1-4-+-4-b- jal --4-+-t-hhet- tl thea ahahalatelahaiadalail 
i 
CIAL RECEIVE CODE EQUIVALENCES. 
gunaunubanecantuceskaseucsenesetserttettebesseeneueneaeausenses 
bom =O2 sSTART_OF MESSAGE 
EOM = =04 3ENO OF ME 
XOrF =e . TURN OFF TRANSMISSION 
=e1 STUSN ON TRANSMISSION 


SSTORAGE FOR SINGLE CH. READ 


SEQ 0024 





8 

x 

+ 
UO 
- 1 
bb 


SSR5 
S 
S 


002310 
694 002312 
002316 


bee 


a 
os 
coe 


62 000000 
G Bis 
i 


002262 012737 

002270 900137 
H-A 
ERROR 


af 


8 
y 


8 
4 


SBSe8 
Sn 
= 


bs 
£ 
be 


‘Wwe 


j 


RR 


002166 





3 
3 
— 


MO2 «temp. storace a. 
“WORD HTENP. STORAGE Re, 
"WORD 0 tMUST BE. LEF 


: WORD 3000 
“WORD : ites PONTE ie RANGAL ra MODE 
—E: .WORD OQ ; BYTEO=TESTING MODE .BYTEI=INTERFACE TYPE 

FTLCNT: .WORD sCOUNT OF INCOMPLETE XMITS. 

BLUCNT: - WORD 10. # OF ALLOWABLE INCOMPLETE XMITS. 

ODD: :WORD 
BUBCT: .WO 
TPREG: 
PRESC: .WORD PRIMARY ESC COMMAND 
ESSEQ: WORD SEQUENCE ASSEMBLY AREA 
DLAY:  :WORD 
ROSVE: WORD TEMP STORAGE FOR RO ONLY. 
VSTAT: .WO 0 
BLKM: :WO 0 FLAG LOCATION FOR BLOCK MODE XMITS. 
TSTNM: :WORD 0 DISPLAY STORAGE FOR TEST NUMBER. 


5 RRAAAEERREALALE LARA KEELE ARLE RAF AE RE RERELELALEE LE LLLALELELALL EEE 


un OMATIC SELECTION OF UNITS. atte 1 THROUGH 33 WILL BE 


PITIVELY EXECUTED FOR ALL 
eet ert mene 3 irr ee eee 


AUTO: CLR MODE ;ZERO THE MODE. SWITCH 
IMP SETA : CTOR 
AUTOA: JSR RO, TRPVEC ko FIND GO te 
JSR RO; CDEV CHECK DLI OUND 
JSR RO’ INITA : IN VT6l 
i CK :VTb1 PRE A? t “BEGIN LEST NG 
AUTOR ‘NO VTbL IN CHECKING 


 FRRRAALELE REE SELLA ALA EE RAE EARLE RELA EERERARERLLLE LER EE RRL RA REE 


seecteD Via co ap rel 1 seLeeTiON. UNITS CAN BE 
AUTO SELECTION CAN 
;BE UTILIZED. ESTs ENTER ED VIA CONSOLE WILL 
;BE EXECUTED IN THE ORDER ENTERED. 
5 HSE SEERA SEE IEEE IEEE ARERR HERE EERE ERIE EEE EEE EM REE EEE EEE REE EE 
MANS: MOV #1, MODE ;SET MODE TO MANUAL SELECT. 


G0 SET UP CONSTANTS 
20-SEP-76 10:22 PAGE 14 


MANSA: TYPE 


JSR ADR TREvEC ;FIND GOOD DL11°S 

MOV SIATAB 
BLDADD: CLR ce 
BLDADA: JSR RO, GTNUM ;GET A KEYBOARD INPUT 

cnPe RI, #54 mn. 9 = COMMA? 

MOV R2, (R3)+ YES = STORE THIS ADDRESS 

BR BLOADD :AND LOOK FOR ANOTHER ADDRESS 
1S: CMPB = RI, LNFED LINE FEED? 

BNE 3$ Kon 

TST Re sANY ENTRIES CREATED? 

BEQ 2$ 0 USE BUTO SELECTION. OF UNITS 

MOV Re, (R3)+ VES ORE LA 


MOV ZERO, (R3)+ :SET RIERHINATOR IA ie FaBLE 


SEQ 0025 








004037 Olee4e JSR RO, CDEV NO2 , ;CHECK DL11 ON VT 61 SELECTED 


a deny 737 001610 TST ot ANY DLIIS G 
re bisseg sta SEQ MBN gb ina ebkk 70 CEP ARE ONE 
? l BR BLOTST $YES 0 GET TESTS 
a0 SRE CRT Eo te 138 mer 1 Suav VT61 ATTACHED 
ot peat ppa035 BasniB IMP cote i fey i SELECTION 
1g BR MANSA O UNIT F OUND-LOOP 
l 01734 33: ISR RO, OCTBIN Tee ILDING ADDRESS 
zi 002406 000741 BR BLBADA 
216 pp2410 O44 923151 BLDTST: TYPE MANE ; TYPE 2ND PART OF MANUAL MESSAGE 
7} 14 Ol 1650 MOV kINTAB,R3 ‘USE INTAB AS TEST # STORAGE. 
718 O0e420 905004 CLR RY :CLEAR TEST COUNTER 
719 bbe 11$: CLR R2 LEAR ASSEMBL WORD 
20 ined 017406 10$: JSR RO, GTNUM GET A NUMERIC CHAR. 
1 002430 120127 o00054 CMPB sR, #S4 i CHAR. =COMMA? 
722 002434 001006 BNE 1 
723 002436 110223 MOVB Re, (R3)+ ives STORE A TEST 
724 0020440 O0S5204 INC SAND INCREMENT fest COUNT. 
725 O0e%42 020437 oD0040 CMP a 32. ; COUNT =32? 
726 O02446 O01415 BEQ MODCK “YES ACCEPT NO MORE ENTRIES. 
727 O0e4SO0 000764 BR 11$ *NO KEEP LOOKING 
728 O0e%S2e 120137 001752 1S: CMPB =s- R11, LNFED ; CHAR. = LINE FEED? 
002456 001006 BNE 2s 
730 O02460 110223 MOVB Re, (R3)+ *LOAD THE LAST TEST 
731 O0e%e2 105013 CLRB (R43). “AND INSERT TEST TABLE TERMINATOR 
732 OSe464 112737 000001 002174 MOVB #1, MODE *SET MODE SWITCH TO MANUAL 
002472 000403 BR MODCK "AND BEGIN TESTING. 
735 002474 004037 017342 2s: JSR RO, OCTBIN ;CONVERT CHAR. 
fab Odesoo 000751 BR 10$ 
738 Pe ee rNIS ROUTINE LOOKS FOR THE OPERATIONAL MODE REQUESTED A 
739 S ROUTINE LOOKS FOR THE OPERATIONAL MODE REQUESTED AND 
oto ELECTS THE NEXT UNIT TO BE TESTE 
742 . ;MODE 0 = ACCEPTANCE TYPE TEST 
m3 “MODE 1 = OPERATOR SELECTION OF UNITS AND SEQUENCE OF TESTS. 


6 333 
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DZVTH.P11 ERROR POINTER TABLE SEQ 0026 
745 
745 012737 001610 001712 MODCK: MOV WDLTBL,DLTPT © ; INITIAL SETUP OF ADDRESS 
747 002510 912737 Of1550 O01710 MOV #VVECT, VECPT AND VECTOR TERS. 
748 002516 O1e701 001730 MODCA: MOV #VRCSR’ RI ‘LOAD ADDRESS DESTINATION 
749 O0eSe2 Gl3702 O0171e2 MOV LTPT Re LOAD CURRENT ADDRESS POINTER 
750 002526 017703 177156 MOV avECPT,R3 *LOAD CURRENT VECTOR POINTER 
751 O0253¢e 712 TST (Re) ALL UNITS CHECKED? 
752 002534 001013 BNE 1$ *NO_= CONTINUE 
753 00253 005737 002174 TST MODE ;CHECK MODE 
754 42 001002 BNE 10$ 
| 755 o0es44 000137 IMP AUTOA GO RESTART AUTO MODE 
756 002550 105777 177416 10$: STB  aTSTPTR ; MANUAL LOOP REQUESTED? 
757 002554 100001 BPL 2s 
758 002556 000751 MODCK YES-RESTART COMPLETE TEST. 
759 002560 000137 2s: IMP M GO RESTART MANUAL MODE 
Fey OSET0 Di tee co ee ie 3’ VECT Stone VEC. PODER TEST 
| 762 002574 O1 013746 MOV aide (R3)+ YES - NOW ee? yp Aor VECTOR 
| 763 012723 MOV (R3)¢ ‘AND SET RECEIVER PSW TO 7 
764 b1e7e3 014670 - MOV Sintiee (R3)+ SET iP TRANSHTT. VECTOR 
765 O02610 Ole 000340 


MOV 8340, (R34 pax SiT PSWT 


| 
| 








“~ 


T FBILED NG a 
T TESTS WILL NO Ret ~ 

UNI ara IS ROT T EVALUATED. 

«AEE 





Tee 002814 cr se) BOS ,cuenn tHe psu,istii stv. 
76; g 1 002624 Hoy #100$,-(SP) 
3 es, OO e ugge (OOS: RY Rea tu77,REBU’ AODEESS POINTER. CUFFER 
‘ 
ge) Becee Bleras beines pieiae MOY TERE BOUo>” TEBUF 
44 012737 Oe 614630 . MOV #RCRLB,REBUF = ;s INITITALIZE_REC. BUFFER. 
773 1 015136 MOV aTCRLG TSBUF :IN TIAL TRANSMIT BUFFER. 
774 oiel JSR RO, RESP *RESET IN T POIN ERS. 
775 CLR BLKM CLEAR BLOCK. FLAG. 
278 0026 €LR XMZER “CLEAR ZERO T RANSMIT 
002674 doe éLR VSTAT *CLEAR ALL INTERRUPT FLAGS 
oe: 1§326 JSR RO, ZFLAG ;ISSUE ESC 2 TO VTbl 
baa Bosety iapeae tee BI Yael ig a ad 
oe) Bpssi® Apee> coziee tk  tbent 
782 002716 118: 
783 716 012637 002160 MOV (SP)+, CHRD :;POP STACK INTO CHRD 
784 oo1375 11 
= t erat WeF Rint 31 UNIT UNDER TEST MESSAGE 
os re A374 atte MOV YRCSR, -(SP) TRUE URE OR TYPEQUT 
732 >: TYFE THE ADORE SS 
733 1044 TYPOS :G0 TYPE--OCT TA ASCII 
.BYTE 6 >: TYPE & DIGIT(S) 
731 3 001 “BYTE 1 Ei ty LEADING ZEROS 
73 O02744 017746 176740 MOV AVECPT, -( SP) 3 96 SVECET FOR TYPEOUT 
7% 002750 104402 TYPOS G0 TYPE--OCTAL ASCII 
735 002752 006 .BYTE 6 :: TYPE git T(§) 
Ts 000 “BYTE 0 He ING ZEROS 
737 01374 002122 MOV IDENT, -(SP) s3SAVE I FOR TYPEOUT 
738 He THE IDENT 
739 O0e760 104402 TYPOS ::GO TYPE--OCTAL ASCII 
800 Boe? be a 006 BYTE 6 >: TYPE 6 DIGITS 
MAINDEC-11 MACY11 27(732) 20-SEP-76 10:22 PAGE 16 
| DZ2VTH. P11 ERROR POINTER TABLE SEQ 0027 
| 801 002763 .BYTE 0 3; SUPPRESS LEADING ZEROS 
ete 1400 001167 TYPE. SCRLF SAERRIAGE RETURN AND LINE FEED 
1 oo2l22 BIT §81700, IDENT *UNIT HAVE A COPIER? 
ma 001402 BEQ >NO 
BOS 10400 Oeu774 TYPE DCOPYR iYES= SSUE COPIER MESSAGE 
002122 20S BIT WB1TOL, IDENT “UNIT HAVE A PRINTER? 
807 003012 O01402 BEQ ss 2 
=): 4 74 TYPE "' ,DPRTR aa INTER 
| 805 001710 21S: p00 VECPT ; Wl VECPOINT TAY NeXT VECTOR. 
| 810 F : FATAL XMIT 
elt 1 031 031030 MOV ,ABUFP_ SRE REC. DATA POI 
i gl pe 35 0001 BIS SROENA, JVRCSR Crt ENABLE FOR TESTS 
; 813 002174 1318 MODE * CHECK ING MODE 
| 814 1403 Q Re ; 
gis 12737 001650 002172 MOV SINTAB,TSTPTR LORD INITIAL TEST NUMBER 
817 Tir rst 111 tl daleloheleleleiohsioheleieleichelsicheicheleicheleheieiehebshoieioheichoheiohsietetebetobedel 
eig | SHH HHEE UHHH HHEEEEBEHHE HEHEHE HEEEHE HEHEHE 
£19 :THIS TEST QUENCES AND 
| 
| 
} 


‘BREESE 


! 
} 
| 
i 
i 


' 








827 003062 
4 012737 ete 001156 
: 30 1e737 108 001106 
31 ee 001746 
tba ity 176616 
1 1 0011 002226 
: 00221 
838 1 
Ee i = 
1 1 00221 
l 1 Bae 
B43 boaive 100636 
ay 1t4 tosse 000004 
846 ie arta 
Bia Dosise | 1obW72 
pag is 15397 902214 
851 164 01374 002214 
BS OOslze polsue 
= 174 13746 002212 
8S6 003200 004037 013322 
MAINDEC-11-DZVTH-A MACY11_27(732) 
ll ERROR POINTER TABLE 


8 
io 


a 
bd 


: 
: 


‘ 
N 


is 


ae a 
-i = 
ata 
1,1 
th 
Vf,Vte 


Beto eR NER RANE da diab at Hat A : 


Bes Ga 


SEE ES 


r= 
= 
= 


pores 017074 
176504 
015326 
poeieo oceize 


002160 


000001 


ASTRT: 


thet. SURE tne ene ete re ears 


ESTST: 


ZERST: 


GCMD: 


1§: 


es: 
INXMT: 


33: 
20-SEP- 


4§: 


#1 $1 MES 
sESTST, SLPADR 


MOV 
MOV #BEL, RI 
BIC BROENA, @VRCSR 
MOVE § STSTNM, TSTNM 
CLR PRESC 
CLR RY 
MOV ZERO, -(SP) 
MOV ePRESC 
MOV (R1)+,R3 
8EQ 1¢ 
BMI ESTEX 
CMPB 84 
BLO DELIM 
BEQ SPTN 
TST RY 
BMI SEQY 
MOV R3,ESSEQ 
MOV ESSEQ,-(SP) 
TST RY 
BEQ 3$ 
MOV PRESC,-(SP) 
ISR RO, TESC 

7 10:22 PAGE 17 
TST RY 
BPL 4O§ 

TOR Ra, DELAY , 
TST @VRBUF 
JSR RO, ZFLAG 

MOV (SP)+. CHRD 
CMPB os CHIR, IDENT 
BNE TERR 
MOV (SP)+, CHRD 
BNE 4 
BR ZERST 
CMPB OS séR3, 

BEQ 1S 

CMPB #BITOl 
BEQ Be 

CMPB = s«R3, 43 
BEQ 3$ 

BR GCM 
MOV #1,R4 
MOV ESCN, PRESC 
BR GCMD 


;;00_1 ITERATION 
3;9€T SCOPE LOOP ADDRESS 


;POINT TO FIRST C 


;CLEAR REC. INT. ENABL 
;LOAD THE TEST NUMBER. 


iBEY Ur a ON STACK 
$ UP ADDRESS 
‘ OMMAND 


;1F CHAR. MUST * XMIT TERMINATOR 
- EXIT TEST. 
71S AC ae DELIMITER? 


S ExI 
SEQUENCE TO BE TESTED 
Q 


ON STACK 
RENCE REQUIRE 
33 PRESC ON STACK 


;G0 TRANSMIT THIS SEQUENCE. 


2 
< 


z 
: 


sIN 1/0 SEQUENCES? 
:YES,SET UP TO DELAY 1+ SEC. 
;CLEAR ANY RECEIVE FLAGS 

; ISSUE ESC 2 SEQUENCE-GET IDENT 
;;POP STACK INTO CHRD 

:HAVE WE POPPED THE IDENT? 
*NO-ERROR CONDITION 

;;POP STACK INTO CHRD 


;GET NEXT COMMAND 


;FIRST DELIMITER - SET ESCN 
;SECOND DELIMITER - SET ESCO 


; THIRD DELIMITER - SET ESCP 

; INVALID CHARACTER - GET ANOTHER 
$97 ay DELIMITER FLAG. 

; INSERT ESCN. 


SEQ 0028 














003316 013737 O020S6 O02212 2s MOV Esco, aepRboS s INSERT ESCO 
003324 GOMO 
903996 13737 002116 002212 3%: MOV ESCP,dePRESC § ; INSERT ESCP 
BR GCMD 
033% 01 177777 SPTN: MOV #-1,R4 sSET FLAG INDICATING 1/0 
0008 BR ccm : SEQUENCES. 
pete Sor obe ee: Shorr TOS COMPLETE SEQUENCE ASSEMSLED 
5 i MOVB ane) ie : Corp RecEREL Thc 
ey he ee Be = SREP 
' £5 
boost 3R GCAD *GET ANOTHER BYTE 
003360 004037 015530 TIERR: JSR RO, CLREG 
1 O02212 001124 MOV PRESC,SGDDAT § ;AND INSERT IN ERROR 
001124 SWAB GDDAtT *REASSEMBLE FAILING SEQUENCES 
1 002214 C1126 MOV SSEQ, SBDDAT 
nee 002215 STB FSSeOt! ;IF UPPER BYTE IS CLEAR DO NOT SWAP 
810 19 Qull26 SWAB §BDDAT sMESSAGE 1 
811 DOs416 104001 1S: ERROR 1 ISSUE ERROR MESSAGE 
912 00S237 002176 INC FTLCNT INCREMENT FATAL XMIT COUNT. 
-11-DZVTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE 18 
ll ERROR POINTER TABLE SEQ 0029 
913 poses 023737 002176 002200 CMP FTLCNT,ALWCNT  ;FATAL XHITS EXCEEDED ALLOWED? 
ate fomen Boars BS BoBt a HE STACK AND TRY ANOTHER COMMAND 
ais nee 012637 002160 — MOV (SP)+. CHRD STACK INTO CHRD 
318 003442 052777 O00100 176260 FTEX1: BIS #RDENA, AVRCSR THE REC. INT. ENABLE FOR TESTS 


TE OUTING 10 INSURE ENTERING MAIN RELL EEE EE EEE EEE 


PAIS a eee ioe scan a Fe 


; MAINTENANCE 
718 IS TO THE UNIT AND THE RESULTING TRAN TRANSHISSION® is 


2 HHH HHIHHEHHEHHHHHHH HHH HHH HEHEHE HEHEHE 


cE Pepa appanage se, 
0011 ° ave STIMES 300 5 
Seoaee tbe MOV SeKANT SC PAOR + OO Scope N SP ADDRESS 


01514 CKMNT: JSR RO Rare RESET THE UNIT AND SETMAINT. MODE. 
ee 011442 HOV ash ISSUE START OF MESSAGE. 
om ee 
16026 JSR XAITI 
125 O11416 MOVB Bo an ,aTBUFP 
6m n aTBUFP 


a 
011404 vB ; ISSUE END OF MESSAGE. —~ 


oe eee 
in i et 
CKEOM: #50. RI ;SET MAX DELAY FOR SOO N.S. 


;SEND AN IDENT REQUEST. 


Se OE 





fee ee Tee ee ee ae ere 
Bdcinsts itoiniiaisioree eg Rae f 





PEERS PRE ob iano MLE VUNG 


2 
5 
i 


-_—--- 


25 GED GR cmon one 
98! 12737 000091 017074 
aes ’ 017032 

9s4 14 1 

oe 16 040000 002222 
eee ; 020000 Od02222 
9$9 1 006001 001124 
960 44 15532 O0eeee O0ileb 
F-24 0036S2 104022 

963 003654 000240 

964 

96S 

S65 

967 

968 


i en MACY11_27(732) 
DZVTH.P ERROR POINTER TABLE 


015144 


Si Se & 
a 


8 
R 


dd Gate 


aw 


015144 


GeaeSees Seoiavicsd Sous) FES 
Fe 


- 
= 
~ 
a 
~ 


SERRE CHESS AOSTA ET SATSS © 


ee ee on oe 


+ 


4 


- 

- 

_ 
_— 


3 & 


Re 


CK A Hs RECEIVED. 


1$: git eneon, vst OS ;p EE CHE VED ENO OF MESSAGE? 


MOV #1,DCOUNT 
JSR RO, DELAY 


pre ;AND KEEP LOOKING. 
10S: BIT #RSOM, VSTAT ;RECEIVED SOM? 

BEQ ;NO_ISSUE ERROR 

BIT #REOM, VSTAT ;RECEIVED EOM? 


BNE YES. NO ERRORS-EXIT. 
2S: MOV #6001, SGDDAT :LOAD ERROR WITH EXPECTED 
MOV VSTAT, SBDDAT SAND ACTUAL STATUS. 


EXMNT: NOP 
p HESERESERSSSRSSERSCSSESEDRSERESERRNSRES ERNE SRORS SREP SRREERADERE 
S TEST INSURES THAT THE CURSOR WILL RESPOND 
10 DIRECT CUSROR ADDRESSING. THE UNIT IS RESET AND THE CURSOR 
*POSITION IS VERIFIED TO BE HOME . THE CURSOR IS THEN MOVED 
*T0 POSITION ROW 23 COLUMN 80 AND THE POSITION IS AGAIN 
20-SEP-76 10:22 PAGE 19 
sVERIFIED. ERRORS ARE REPORTED IF THE POSITIONS ARE INCORRECT. 


; LELELELLELELLLELELALRELLLLLLLEL ELLE LL AES LLELALELALL ELLE SELL ELE 


i. Sa ee ee 
"MOV #5, STIMES $300 S SASEEATIONS 
MOV 1,$LPADR }:SET SCOPE LOOP ADDRESS 
CURS1: MOV TBBUF RI ;USE_R1_AS XMIT BUFFER POINTER. 
JSR RO, RESETV ;RESET THE UNIT AN AND WAIT FOR XON. 
MOV ESCOT, (R1)+ T. READ CURSOR 
MOVB RDOCUR:(R1)+ $POSItION, Ch CURSOR LEFT. 
MOV #3, XMCNT 
JSR RO, XMREC sXMIT RECEIVE. 
10$ * NORMAL I 
ERROR ii jeer ON CAUSED VT61 TO FAIL/HANG 
10S: MOV RCRLB, RI > GE CURRENT CURSOR POSITION. 
ch Ri, CURRIE *CURSOR REALLY HOME? 
ERROR le Vg Fenume MESSAGE 
MOV CUHME . -(SP) : CUHME ON STACK 
JSR RO, CURER 60 LOAD AND ISSUE CURSOR ERROR 
a 
MOV EScOL, (Ri )¢ Hen G cursox ost tion 
MOV (R1)+ ty 
MOV —s- 87, XMCNT untT adie 
JSR RO, XrIREC EIVE 
ERROR i t TRANSH SSION CAUSED VT61 TO FAIL/HANG 
“EXIT TEST. 
20S: MOV #RCRLB,R1 
CMP 


659079, (RI) ; CHECK CURSOR POSITION TO LOWER RT. 
30K, EXI 


SE@ 0030 













1010 004036 104012 fa ERROR ae FO 3 jvre1 Fanune MESSAGE 
1Otg ait Bpia3s ae ib om a5 ee Kae $F OBB ae foeue \cDRcoR ERROR . 
iota TE TR AUTINE TO INGURE THE UNIT CON ENTER LINEAR ACORESSING 
1015 OUTINE TO INSURE THE UNIT CAN ENTER LINEAR ACORESSING 
1016 iNODE. 1 CHARACT ERS ARE ISSUED TO THE UNIT UNDER TEST 
101 POSITION IS READ T iL.0. 
ig , ennennhesSEeSeAESSSSESSSSEESESERRESESEOSORESSRENESESSESESETSS 
ipso ee Bee ee nee eer 
i ee 001156 “MOV #5, STIMES 300 5 ITERATIONS 
ies nies 1033 Boo 001106 MOV #CKLIN,SLPADR ;:SET SCOPE LOOP ADDRESS 
MAINDEC-11-D2VTH-A Y11 27(732) 20-SEP-76 10:22 PAGE 20 
Bevel ERROR POI T SEQ 0031 




















1 1 CKLIN: J TV RESET THE UNIT-SET MAINT AND LINEAR MODES 
Gee aa B1701 GE we, BAUS RL 
1 094100 O1 MOV . RB 
1028 OOH104 aye JSR RO BLDING | LOAD XMIT BUFFER WITH 80 CHAR AND 
pit te htt fel | RCUR 
103¢ poarig ot 1 00205¢ MOV RDCUR, (R1)+ sREAD CURSOR POSINION. 
1031 O04120 012737 000123 O1S144 MOV #83. , XMCNT 
he Oov12 dona37 o1s5S2 ISR RO, XAREC sXMIT THE BUFFER. 
1034 OOv1 34 104011 ERROR it iLAST T xMIT CAUSED UNIT TO HANG. 
103% poate 002132 o10%6e 1S: eRe 1CO0, SRBBUF tat ae AT ROWI,COL. 0? 
i 004146 O14 ssiaiaal BEd LINXT ; t YES-EXIT 
1K 
ibs att cote oe | al 
1040 O04! 13737 O0c0l2 001126 MOV DRECT,SBDDAT § ;ISSUE ESC SEQUENCE AND CURSOR 
1041 004170 104001 ERROR 1 
104g 004172 013746 002132 MOV ROICOO,-(SP) | ;;PUSH ROICOD ON STACK 
1043 004176 004037 Ol6216 JSR RO, CURER 
1048 Oo4202 000240 LINXT: NOP 
1046 
1047 i HEESESENTEST TO INSURE OPERATION OF XON/XOFF COMMANDS 
1048 To I REOPERATION. OF F /YON/xOFE 
1049 BY TRANSMITTING LINE 23 WHILE SIMUL- 
1050 irae a “rie sit ILO WITH DATA. AFTER SENSING 
1051 ST WeTTS $ FOR THE TRANSMIT To FINISH AND 
1052 . TRANSFER TIME HAS ELAPSED. 
1053 Tee RES KON OCCURS 
ie catia 2, asl ae cena taba 
1056 oEEEEFLSEREZERLESSELE EERE ELE SE SELES RSE GEES EEE RAE L HER RAR SERRA YELE 
ie Sea tee 
1 1 000016 001156 V #10, STIMES $3D0_10 ITERATIONS 
1059 214 012737 OO4222 001106 MOV #BASC3,.SLPADR ; OPE LOOP ADDRESS 
1060 ot BASC3: MOV TBBUF , RI tAT = 1ST XMIT BUFFER ADDRESS. 
: Del 1 002224 HOV #1001, BL KN ‘SET UP TO XMIT A SOM -DATA- EOM. 
1963 oped 15k SETV RESET THE UNIT AND WAIT FOR XON. 
] (R1)+ 
1065 004 MOV R23C00,(R1)+  ;CURSOR TO ROW 23, COL.O 
1066 MOV ESCO, (R1)+ | 
1067 Oo HOY xn (R1)+ TRANSMIT THE LINE. 
| 1068 ooe70 J 40 CHAR. OF NCRENENTING CHAR. 
| 4 274 o1si44 ;SET UP TO XMIT 47 BYTES 




















1071 eae 052777 O00100 175424 

tire GaiG piers Gute) 

1074 322 017032 

tors Goisee Geers? 100000 ouzece 

ibe ies Be 

te 0043 tier 100000 
mateReC- TT ABAVTHCA MACY11 27(722) 
DZVTH.P11 ERROR POINTER TABLE 

1081 Ny 004037 015366 

1082 354 

Hin 0043S4 Ol2e746 o00001 

ite: poseg Bier ponte 

Hind 004370 000411 32 conte! 

idee Owed O6i46e 

1090 OO4402e 104012 

1o31 Goon ler poopy 

1093 004414 016136 

1094 

103s 

10396 

1097 

1098 

10939 

1100 

1101 

1102 

1103 

1104 oO04420 o00004 

11058 OO044e2e 012737 O00001 O011S6 

1108 004430 012737 OO4436 001106 

te 3 004037 015146 002222 

Hos Gone Bera br7a77 

iti OON4S4 O13746 002060 

iis poneo Qlere poegee 

itis 004470 012737 OO00010 017074 

ite ie pias 010432 

1117 1 6026 

Lig ee te7o1 Santee 

lll 1 1 

HB Bee Oi tae 017074 

11 

ll 1 

i 

Lie Opies Goles 

1126 1 OO2222 001120 

ict OO4SSE 104015 

113s 2777 010354 
is BBE BE BB 






BIS a. as ; SATU ENABLES 


‘IMUM DELAY EQUAL 400 N.S. 


2s: MOV #1, eset 
JSR RO, DELAY sDELAY FOR 19 MILLISEC. 
BiT aRKOFF, VSTAT  :CHECK FOR X 
BNE FOUND IT eXtT THIS SECTION. 
DEC 2 ‘DELAYED 400 M.S.? 
BNE 23 *NO-KEEP LOOKING FOR XOFF. 
ERROR 12 ; GENERAL VT6l FAILURE MESSAGE 


#100000, - ;;PUSH #100000 ON STACK 


MOV 
20-SEP-75 10:22 PAGE 59° 


- ISR RO, CKSFT GO REPORT ERROR 
MOV 8XMDNE -(SP)  ;;PUSH eXMONE ON STACK 
MOV #50. -(sp *:PUSH #50. ON STACK 
JSR wt 
BR EXtT s TIMEQUT-EXTT ongsT- 
CMPB P, #XON sRECELY 
BEQ EXIT3 RONIT 
ERROR 12 ;GENERAL VT61 FAILURE. MESSAGE 
MOV #909001 -(SP) :;PUSH #000001 ON STAC 
JSR ,CKSFT 
EXIT3: JSR RO, RESPTR ;RESET INTERRUPT POINTERS. 


a ee DUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE Viel 
ROUTE SCREEN TRANGNTT Toc TED AD As gE KSEE 
A FULL SC TNETIBTED A A SERIES OF XOFF AND 
;XON ARE TSELED TO 0 THe “TERMINAL 
NObES” Nore at Ope OR XON RESTART 
TRANGHICSION. t WHEN tS SENSED. 


cqeueveni Tit ROMISSION. TEST Tg ENDED WEN EON 18° SERDED. 


ee ee ee 
"MOV #1, S$TIMES 3;D0 1 TION 
MOV $ONOFG1,SLPADR :;SET shOee'L OOP ADDRESS 
ONOF61: JSR RO RESETV ;RESET THE UNIT AND WAIT FOR XON. 
BiG SaareeNBTT | CLEA TRE PLR. 
MOV XMTAL, (SP) PUSH XMTAL ON STACK 
HOY ESCO, = ) HH ESCO ON STACK 
ONOFLP: MOV aio DCOUNT ;ALLOW 100 M.S. FOR OPERATION 
ISR Y TO BEGIN. 
MOVB of aTBUFP 
JSR RO xnitl ;SEND A XOFF TO VT61. 
MOV #30. 
OFFLP: MOV ABUFP. RS sALLOW 300M.S. FOR XMIT TO CEASE 
MOV 81, DOBUNT 
JSR Y 
CMP 5RS 
BEQ ONOFA sXMIT STOPPED-GO RESTART IT. 
Oe OF COUNTER NO EQUAL 300 MS-LOOP 
MOV VSTAT,SGDADR § ;UNIT DID NOT RESPOND TO XOFF 
ERROR ISSUE ERROR 
ONOFA: MOVB § &XON, aTBUFP 
JSR RO MATT ;SEND A XON TO THE VT6l. 
MOV #30. ,R4 “SET UP FOR 300MS DELAY. 











SEQ 0032 









NE SEES ESESSRRS 


ae eee 


hb Bs 8 B-Band 2 = BO Pb 8 0-2 Bb = b= Fh fh bs pe op ee 


BASREVRRESESIa Tao SINS oso TOR See Ue Se 


| 





004576 


Spee ONS? O1 sAcvit 27(732) 20-SEP-75> Ro: 22 U,ELA So 
ERROR POINTER TABLE 
023705 031030 CMP REUFP, RS 
001317 BNE ONOFLP ;IT RESTARTED-GO STOP IT. 
005304 DEC RY 
004634 001360 BNE ONLP -NOT YET 300 MS LOOP. 
OOv6-36 013737 002222 001120 MOV VSTAT, SGDADR nT MIT DIT NOT REST ART-ISSUE 
44 10401 ERROR 1 
OOYE4S Aasts ONOFXT: NOP 
TE ee DUTINE TO TEST VTE1 RAN AND THE COMMUNICATION PATHS 
sROUT 10 TEST VT61 RAM THE C CATION PATHS. 
THIS NE A SERIES OF PA (77/100, 100/77 
*52/125, INCREMENTING, AND REV. VIDEO INCREMENTING) TO THE VT61. 
>THE SCREEN IS THEN TRANSMITTED TO THE HOST AND H 
ION) 











032737 020000 002222 : BIT sREON vsthOS sEOM RECEIVED? 


ONOF XT : 
MOV SBUFP aS 
Me Os Boso01 017074 i} a, BOOUNT 





;ALLOW 300 MS FOR XMIT TO RESTART 





TERATION RECEIVED DATA IS CHECKED AND ALL a BE TER Eft 
gto REPORTED. 


$$ 

sMITTED yt! THE HOST COMPUTER AND THE RESULTS ARE CHECKED AND 
*ALL (INCLUDING TRANSMISSION) REPORTED. 

iit ttttrititiitititiiitittiitiiiiiitiiittttitrtitititi ttt titi ty 





sSERERKELAESESLAA KALLA RSESKER SAF SELES LESA LE RE RAL ELEEL ALLA RAFLE HEE 
oo0004 tST?: SCOPE 
012737 O00001 001156 MOV #1, STIMES ::D0 1 ITERATION 
012737 001106 MOV WMEMI1,SLPADR § ;:SET SCOPE LOOP ADDRESS 
015146 MEML: ISR RO, RESETV sRESET ESET THE UNI UNIT oft, AIT FOR XON. 
016504 MEMA: MOV MPATT(RS), R4 PEER SEO PATTERN TO BE TRANSMMITTED 
16136 ISR RO, RESPTR *RESET POINTERS 
002222 BIC 877577, VSTAT ; CLEAR ALL FLAGS BUT XOFF AND XMKIL 
1 MOV #TOTCH’ Re ‘LOAD A COUNT OF SCREEN 
112777 go00ge 010216 MOVB §#SOM. aTBUFP ISSUE START OF MESSAGE 
004037 016026 ISR RO, XMIT1 
005302 MEMB: DEC R2 sDECREHENT XMIT COUNT 
001414 BEQ 10$ COUNT = ZERO? 
004037 128: JSR RO, PATGN sNO-GENERATE NEXT BYTE TO XMIT. 
110477 010176 MOVB RY, aTBUFP *LOAD THE CHARACTER. 
OoH037 1 JSR BO XMIT1 *NO-XMIT ANOTHER BYTE. 
176 002200 CMP FTLCNT,ALWCNT  3EXCEEDED FATAL ERROR COUNT? 
103764 BLO MEMB *NO-CHECK IF ANOTHER TRANSMISSION REQUIRED. 
000137 oos422 IMP MEMXT >YES-GO ABORT TEST. 
Were 000004 010150 10S: HOV sEOM, OTBUFP *ISSUE END OF MESSAGE. 
rite piEtse JSR RESPIR ;RESET INTERRUPT POINTERS. 
13701 1 MOV TBBUF , R1 sLOAD XMIT BUFFER WITH 
ial biel HOV ESCN, URID¢ il HOME 
13721 ied MOV Fert RI + “ESCAPE Z 
13721 MOV ESCO, (R1)+ 
13721 MOV XHTAL (RL) s TRANSMIT ALL 
1 1752 MOV LNFED, (R1) *LINE FEED. 
1 10 O15144 MOV #8. XMCNT ;SET UP TO XMIT 8 BYTES 
1 JSR | KMREC ;XMIT,WAIT FOR REC. EOM 
000402 BR 1 XIT 
10401 ERROR 11 tLAST TRANSMIT CAUSED VT61 TO HANG 





MAINDEC-11-DZVTH-A 





5 


° a 
DZVTH.P1L ERROR POINTER TABLE 
R MEMXT 
1133 ppeRee Baos85 077577 O02e222 1S: Bio 7577, VSTAT 
ie BOSC teed oos4o2 sb TE ATT(RS) RY 
Lig ppenes 1 030630 NOV #TCRL 8+300,R3 
tiss poeias nah paste MeMc: tek Roar 
1200 005196 013737 O14630 014634 MOV RBBUF , RBUFP 
1 005114 023701 014634 1S: MP P’RI 
1 D051 101 NE MD 
1 005 1 020000 002222 BIT #REOM, VSTAT 
1 0051 CKDAT 
1 D051 002216 DLAY 
l 0051 1 1$ 
1207 05140 005237 002176 INC FTLCNT 
1208 144 104011 ERROR 11 
ist eat MEMD PAC Re 
tic i tt To 3 
isi? eegtes JSR RO, PATGN 
lele 005158 122705 900010 CMPB 8,RS 
tel 162 001002 BNE 
1214 005164 000200 BIS #B1T07,R4 
1215 005170 121104 1$: CMPB Ss (RI), R4 
151? HeiTa Genes? 03600 EAP ORE STOTCH 
1218 005200 001740 BEQ MEMC 
1220 O0S202 020327 030700 CMP R3, #TCRLB+350 
lee 1 BHI MEMC 
1553 esata 1104 ate RY, (R3)+ 
le23 O0S2l2 111123 MOVB (RIL), (R3)+ 
1 14 01 MOV Re, (R3)+ 
i 1 1 BR 
1 030630 CKDAT: CMP #TCRLB+300,R3 
1227 005224 001415 BEQ CKMEM 
1228 005226 012701 030630 MOV #TCRLB+300,R1 
1 NNS23e 5530 1S: JSR CLREG 
1 1121 1124 MOVE  - (R1)+, SGDDAT 
- 1 005204 iets? 001126 MOVB (R1}+, SB0DAT 
ies BES ain Pala 
1 005254 103 CMP R1,R3 
1236 005256 103765 BLO 
1237 020227 003600 CKMEM: CMP R2, #TOTCH 
1238 peesen 001406 BEQ 1s’ 
1239 005266 012737 001124 MOV #TOTCH, SGDDAT 
1240 bose? 010237 001126 MOV Re, SBDDAT 
teh 104005 ERROR 
1243 005302 1S: 
tee ac 
1 1 JSR 
1246 le ADD 
1247 00531 05768 o0s402 TST wean? ps) 
1248 0014 BEQ T 
MAINDEC-11-DZVTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE 24 
DZVTH. P11 ERROR POINTER TABLE 
1249 005324 


BPL es 
CMPB =s «#10, RS 


122708 000010 


MACYII 27(732) 20-SEP-76 10:22 pace 23103 





SEG 0034 
‘EE AR ALL FLAGS BUT XOFF AND XMKIL 
;CLEAR RECEIVE COUNTER. 
;LOAD PATTERN 


:SET UT ERROR STORAGE 
set UP UP RECEIVE POINTER 

sel R RECEIVE F POINTER 
ES-00. CHECK Tt 

ives” Me RECEIVED COW? ERRORS 
; Out DELAY. 
4 


EP LOOKING. 
TRANSMISSION FAILED-INCR. FATAL COUNT 


;DATA IN. INCREMENT COUNTER 
GET GOOD CHARACTER ,PUT IN R4 AND 
; CHECKING yA yineo" DATA? 


;COMPARING LAST CHAR? 
:YES-NEVER COUNT AS A ERROR. 


; STORED 20 ERRORS? 
;YES-STORE NO MORE. 

:ST GOOD DATA. 
;STORE THE BAD DATA. 
STORE THE RECEIVE COUNT. 


3LOAD FIRST ERROR ADDRESS. 


DID WE XFER 1920 TIMES? 
YES = GO CHECK STATUS 

*NO. PUT GOOD COUNT IN GDDAT 
AND ACTUAL COUNT IN BDDAT. 
ISSUE COUNT ERROR. 


33;PUSH #60000 ON STACK 
; INCREMENT PATTERN POINTER 
;TEST NEXT PATTERN 
;ZERO-END OF TEST EXIT. 
SEQ 0035 


;NOT INCRMENTING PATTERN. 
;SET REVERSE VIDEO? 





oe 


Baa8 


Omer 


iss Ee & 


 CALCULAT 
;THE VT61 TRANSMIT CHECKSUM,UTILIZING THE DATA SENT TO THE VT61 
IN SUBTEST A,OURING @ FULL’ TRANSMIT. 


MOV TBB 
20-SEP-76 10:22 PAGE 2S 





RY, #177 


60040 


-ESC, 


td eet 


TEST 


#3, STIMES 
8CKSUMA, SLPADR 


#315. ,R3 
ESCN, (RL) 


;SET PT see 
‘DIS. RECT. MODE AND ’CLEAR CHECKSUM 


“SCLEAR ALL FLAGS BUT XOFF AND XMKIL 
?LOAD XMIT BUFFER WITH 






VES “ENTER REVERS 


IRN Send 8b 


;CLEAR REV. YIDE 
AP at RY Fam PR 
a Par 


OTHE RUISe SWAP BYTES 


iM NCREMENTING 
; HAVE i pEMCEEDED LIMIT 


ives, RESET PATTERN AND 
“EXIT. 


ONE TO I 


sPATTERN 77,100 
;PATTERN 106,77 
:PATTERN Se, 12S 
PATTERN | FAORERENT 


5 RERERE LASERS LE EEEALEAEL ERE LE REEEAERE ELLE ERE LEE RE LER ERE REL EREEE 





;RGUTINE TO TEST THE ABILITY OF THE VT61 TO CALCULATE 
SAND TRANSMIT CHECKSUMS OF BOTH TRANSMITTED AND 


CK EACH TER 
;REQUESTING THE RECEIVER CHECKSUM IS 


IS 
SAME 


SCREEN 





; RERERLLEFLELA EAE LALELEREE RELL LE LEE LELLE RE LAEERELAEE LEELA RELL ELE 
OS aa tec rnenaepauani Gis Mer aera aioe aE 








;;00_3 ITERATIONS 


;;9ET SCOPE LOOP ADDRESS 


;RESET THE UNIT AND WAIT FOR XON. 
XMIT_A Rae mba EOM. 


NTERRUPT PO 


3314 INCREMENTING CHAR. 


;CURSOR HOME 


F300, (RID (R14 


TXRCK, (R1) 





; TRANSMIT RECEIVER CHECKSUM. 





mie PATTERN. 


NTING 
: PATTERN BY THGLE TERR IAAT ON VIDEO. 
* PATTE TERMINATOR 
; SEQUENCE TO ENTER, REVERSE VIDE 





os 


GIGI GI LIGIGIOIG) 
ed eel ae eee 


OONWU£ TU 


¥ 


8 
-— 
<£ 
~~ 
£ 


: 


2 
- 
Ww 


ae 


j=] 
— 
nt 


: 


Db 2 b= b-< b= 0-2 2 B= = b= PH — p-0 OB + & + & = b-= & = 6-2 b= OH B= b— P— g 2 p+ HB 
r= 


SERRE BRO SO NER 


ere 
Gass) Neca 


a 





sake 


001126 


O022ee 
002224 
O0ee2e 





RY KO3. :CLEAR CHECKSUM REGISTER 
¥EOM, RS ;PRELORD CHECKSUM REC. ITH 


RO, CALCK TAT iF ef MohE 8 an ATIONS 
IS0be KMENT oe 19. at es Bris 
8TENA, JVXCSR 

#10. .-(SP) : fa) a0, on STACK 

RO, it! : LOOK EOM. 

CKEXT FERROR oF IF NOT FOUND 
JRBBUF , RY KSU 

CKSUNE . $GO0D GO TO SiBTEST g 


R4: SGDDAT {TOAD CALCULATED CHECKSUM 
JRBBUF,SBDDAT  ;AND VTb1 RECEIVER CHECKSUM 


31SS 
wet -(SP) Fa #6000! ON STACK 


,CKSFT 
477577, VSTAT  ;CLEAR ALL FLAGS BUT XOFF AND XMKIL 
*CLEAR CHECKSUM REGISTER 
Root BLKM *SET UP TO XMIT_A SOM -DATA- EOM. 
#TXSUM, VSTAT jSET UP FOR XMIT CHECKSUM BENERATION. 
TBBUF UF RI ‘LOAD XMIT BUFFER WITH 


UF LOAD THE BUFFER WITH 
Apa .0,.CLTCK, Fe ie "0: . TXTCK, 0 


#9. ,.XMCNT ;SET UP TO XMIT 9 BYTES 
STENA,JVXCSR ALLOW XMIT INTERRUPTS 
#XMDNE,-(SP)  3;PUSH #XMDNE ON STACK 


#2,-(SP) *:PUSH #2 ON STACK 
RO; WTBGND *LOOK FOR XMIT DONE. 
CKEXT j LIME OUT = EXIT TEST 
DLAY ser "THe OUT DELAY 
ABUFP , Re Rese T RECEIVER FLAG 
ABUFP; Re 

Pesca G RuECK K IT. 


RUN TIME OUT DELAY. 















LO3 


ree pees 002176 ita AF ont TIMED OUT-INCREMENT FATAL xMIT COUNT 
é ; = 
ie ? } iN OR Me t if HUNG NECenEN AND sat 
006002 122777 O00004 023020 2s: CMPB = #EOM. JABUFP RECEIVED EOM CHAR? 
t 328 1g 601356 NE KSR 
1 1 o20000 o02222 IC 3 OM, VSTAT sCLEAR THE EOM FLAG 
1359 20 032737 020000 O02222 BIT #REOM; VSTAT ‘NOW WAIT FOR LAST EOM FLAG 
1360 006026 ogi774 BEQ -6 FROM XMIT TRANSMITTER CHECKSUM. 
MAINDEC-11-D2VTH-A MAGYL1 27(732) 20-SEP-75 10:22 PAGE 26 
DZ2VTH.P11 ERROR POINTER TABLE SEQ 0037 
361 006030 120477 006574 CMPB —sR4, ORBBUF sCOMPARE 61 TO HOST CHECKSUM. 
006034 001421 BEQ CKEXT *EQUOL - EXIT TEST 
006036 004037 015530 ISR RO, REG 
006042 110437 001124 MOVB - R4’ SGDDAT sLOAD THE HOST CALCULATED CHECKSUM 
QO6046 117737 006556 001126 MOVB @RBBUF,SBDDAT LOAD THE VTbl TRANSMITTED CHECKSUM 
006054 1040'4 ERROR 14 ISSUE VTE1 xNIT CHECKSUM ERROR 
006056 012746 060001 MOV $60001,-(SP)  ::PUSH #60001 ON STACK 
006062 00437 O1S366 JSR RO, CKSFT CHECK FOR STATUS ERROR 
006066 o0C404 BR CKEXT 


006070 033 117 103 ITSUMA: .BYTE .ESC,.0,.DRECT,.ESC,.0,.CLRCK,0,0 
006073 033 117 133 
000 000 
006100 304037 016136 CKEXT: JSR RO, RESPTR 
Ti iahahcalelelel-t-i)-1-t-igh-+-lah-heh-o4-t-iuh-4-5-4-5-del-tot-1-4-+-1b-¢-dolot-bt-+-delalalabalalelelelalalalaelel 


:ROU 
*RESULT IN CORRECT CURSOR MOVEMENT. COMMANDS 

ARE ISSUED IN THE SEQUENCE: RESET CURSOR RIGHT 
CURSOR DOWN, CURSOR LEFT, AND CURSOR UP. THE READ 
“CURSOR POSITION COMMAND tS ISSUED BETER’ EVERY 

; CURSOR COMMAND AND CURRENT Y IS COMPARED TO GOOD 


Y ERRORS 

5 90a HHH SG ISI 
© KELKAELEKFERALER AREAL LAL ALAA RARER E KAA REEL ERE FRA RRE EAA LAL EKA HASE 
tST11: SCOPE 


Seer ee Re Peet iyi MER ER ERR RR Ya aca cole 


006:04 oo0004 

006106 012737 oo000S 001156 MOV #5, STIMES D0 S ITERATIONS 

006114 012737 006122 001106 MOV #CURSIA,SLPADR ::SET SCOPE LOOP ADDRESS 

005122 013701 015136 CURSIA: MOV TBBUF .R LOAD XNIT BUFFER ADDRESS 

005126 004037 015146 JSR RO, Matty *RESET THE UNIT AND WAIT FOR XON. 

Of6i32 004037 017564 JSR 0°LD LOAD THE BUFFER WITH 

016136 033 103 033 -BYTE .E€5C,.CRT,.ESC, é ROCUR, .ESC, .CDWN, Misc 

036141 117 131 033 

£06144 102 033 

106146 117 131 033 .BYTE .0,.RDCUR,.ESC,.CLFT,.ESC,.0, .RDCUR 

906151 104 033 117 

006154 131 | 

006155 033 101 033 .BYTE .ESC,.CUP,.ESC,.0,.RDCUR, .BEL,O 

0061 117 131 007 

006163 000 

006164 012737 oo0024 o1S5144 MOV 420. XMCNT sSET TO XMIT 20 CHARACTERS 
172 012737 OG0004 O16020 MOV RECITT -SET RECEIVE ITERETION TO 4 

006200 012737 030430 016022 MOV STOR +100, WOSTOR;SET UP WORD STORAGE POINT ER 

006206 oissse ISR RO, XMREC sKMIT AND WAIT FOR REC.DONE 
12 00402 Ee it XIT ant? SUR ae ee oe, 
14 i04Ol! ERROR 11 : SI XM ; CAUSED VT61 TO HANG. 

1410 16 000436 BR CURLXT ;EXIT TEST 
| 1411 006220 012701 006304 11$: MOV #GDCURP, RI *R1=GOOD POSITION TABLE 


1416 O006e36_ 001415 
MAINDEC-11-D2VTH-A 
DZVTH.P11 


& 


aanoaee 


<= 
& 
_ 
- 


Ey 
288 


et 
28 


as 


SGEREGOOOD 
=e 


a 


ps be bb P= b= = = HS 
A 3 
wo 


=o 
= 


— 
; 
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' 





012702 030430 
012703 001762 


MACY11_€7(732) 
ERROR POINTER TABLE 


pool sa 001125 
11e4 


0011e6 
027630 
016216 
001770 





MOV sronias:8 M2 ;RE=ACTUAL CURSOR POSITION 
MOV #CRT,R3 sR3=CURSOR COMMAND TABLE 


les: CMP (R1), (Re) ;COMPARE GOOD TO ACTUAL 
BE 0K-GO UPDATE POINTERS. 
20-SEP-76 10:22 PAGE 27 


MOVE (fs) Sco0AaT 
(R3) , SGDDAT ;LOAD COMMAND IN ESC ERROR 


CLR DDAT 7 
ERROR  « sAND ISSUE IT 
MOV (R2),RCRLB LOAD BAD CURSOR POSITION 
MOV (R1))-(SP) sPUSH (R1) C 
JSR —- RO, CURER ‘20RD AND ISSUE CURSRO {ERROR MESSAGE 
2s: CMP (RL)+,(R2)+ INCREMENT POSITION POINTERS. 
CMP (R3)+, CUP ‘CHECK FOR CORPAND TERM, (CUP) 
BNE iNOT AT TERMINATOR-COMPARE AGAIN 
BR CURLXT sEXIT TEST 
GDCURP: .WORD 20440 ;ROW O, COL. 1 
WORD 20441 ;ROW 1, COL. 1 
“WORD 20041 ROW 1; COL. O 
20040 ROW O, COL. O 


WORD 
CURLXT: NOP 


TE EE OUTING 10 INGURE THAT READ CHARACTER AT CURGOR 
sROUTINE TO INSURE THAT READ CHARACTER AT CURSOR 
UNCTIONS CORRECTLY. COMMAND SEQUENCE IS: RESET, A, CURSOR 
LEFT, READ CHARACTER AT CURSOR. 
ERROR IS REPOR PORTED IF TE Tact READ IS NOT AN “A”. 
Ee ERT PPPOE E PEEPE ETT eT EET Er eT ert eer ererr Pete Tee Eee er Tens 


ib hat se ye te 


tsTi2 
#5, STINES :D0 5 ITERATIONS 
#CURSIB, SLPADR ticeT SCOPE LGOP ADDRESS 


CURSIB: MOV TBBUF . RI 
JS® RO, RESETV sRESET THE UNIT AND WAIT FOR XON. 
MOY #101, (R1)+ 7A 
MOVB ESCN, (R1)+ 
MOVB  CLFT.(R1)+ CURSOR LEFT 
MOV EScOt, (R1)+ 
MOV TCUCH’ (R1) s TRANSMIT CH. AT CURSOR 
MOV 86, XMCNT *SET UP TO XMIT & CHARACTERS 
ISR RO, XHREC fu STRING AND WAIT FOR EOM. 
ERROR 11 iL AST HTT CAUSED VT61 TO HANG/FAIL 


; CHARACTER READ=A 


es 
10S: CMPB = ARBBUF,, #101 
BEQ es :YES-NEXT SUBTEST 


MOV ESCOI, SGDDAT 

SWAB © SGODAT ;REASSEMBLE ESC DATA 

CLR SBDDAT 

MOVB TCUCH,SEDDAT+1 ;LOAD FAILING ESC SEQUENCE 
ERROR 1 ;AND ISSUE IT 


RO, CLREG 
MOVB #101, $GDDAT sLOAD GOOD CH. AND CH. 
MOVE aRBBLUF, SBDDAT 
ERROR 4 READ AND ISSUE THEM. 


2S: —_NOP ;END OF TEST 












DZVTH.P11 


yes 006474 12737 00 
1486 006502 Baes10 
1488 006510 O04037 015i46 
1489 006514 013701 015136 
000120 
1492 006526 004037 917076 
006534 013703 015136 
CO4037 016076 
e737 000002 

2737 


uw 
“_ 


eo 
mt 
MNNVNOOLRS 


SBReR Sa SRAgE 
; 
y 
tet 

= 


53 
FrEASEEE Sees emreiaes 


Bae 
ge 
zy. 
a8 
Bates 


8 
3 
AS 


WIN ua 
ee 
WONWULS Wr 
Sen 
neauae 
R 
-_ 
o 


Zininininininintn inunnuinenen nen 
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ERROR POINTER TASLE 


pOLte® 
01106 


016020 
016024 


172 
033 


000 
015144 


030536 


001126 
001124 


177777 
172 


111 


ND 
3 
x 
VO 
= 1 
= 
a 
. 
=z 
—4 
m 
xz 
B 
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SEG 0039 
HEE REO AUTINE 10 VERIFY OPERATION OF REPLACE OND INSERT MODE. 
RTTG Tag [cERTION Tg eo eEDSNTINT eg 
TIPLE Y Re paSS(REPLAL MO E of & CHARACTER $sHEe REPLACED 
ign Mi — AND THE C fond. ¢ (172) AND ROW! COLO(NULL) 
"ARE VERIFIED. ON ne's bases’ FNS ERT MODE IS ENTERED 
!AND THE RESULTING INSERTION aT HOME ) IS VERIFIED.R WO, COLO 
: SHOULD ND ROWI,COLO SHOULD BE 161. 
GHEE EHH HEHEHE HGH BGG IEG EE eet 
© KELL AALRHKLE AKA RAE E RAKAE LAL KA KELL A REA AREL AAAS LALA ARAL L KARA KEKKEE 
tst13: soy #5, $TIMES -D0 S ITERATIONS 
MOV SThRPL. $LPADR iceT stone LOOP ADDRESS 
INRPL: SR Tear sRESET THE UNIT 
INC ;LEAVE ROOM IN BUFFER FOR SOM. 
MOV *CREATE A LINE OF 80 INCREMENTING 
JSR Hi Oa BING CHAR. ON THE SCREEN. 
CLRB ss (RL) 
MOV {BBUF R3 
JSR RO, LOXMIT 
CLR RS sUSE RS AS TEST INDEXER. 
INAG: MOV *SET UP TO RECEIVE 2 CHAR. 
MOV trent B+200, BYSTOR ;SET UP STORAGE AREA. 
MOV TBBUF .R1 
JSR RO, LDBUF LOAD THE BUFFER WITH: 
.BYTE .ESC,.CHOM, 172, ESC, -CHOM, .ESC,.0,. TCUCH 
.BYTE .ESC,.CDWN,.ESC,.0,.TCUCH,O 
MOV #13. , XMCNT ;SET UP TO XMIT 13 CAHR. 
JSR RO, XMREC 
R ; NORMAL EXIT 
RROR i$ SLAST XMI; CAUSED UNIT TO HANG. 
BR INRXT XIT T 
1$: CMP TDATA(RS), ToRLB+260 - COMPARE go0D TO REC.DATA. 
BEQ GO0D-LOOP OR EXIT 
MOV TFUNCT(RS) , $BDDA at° 
HOV ESCP, SGDDAT sLOAD ESCAPE SEQ. ERROR. 
2s: ST (RS)+ s INCREMENT INDEXER. 
CMP RS 4 ; THRU WITH TEST? 
BEQ I : YES-= EXIT. 
MOV I ONCRT R3 *NO-SECOND PASS- ENTER 
ISR RO. LOXMIT INSERT MODE AND DO AGAIN. 
BR INAG 
TFUNCT: .WORD  .ERPL,.EINST,-1 
TOATA: :BYTE i72,0,172,160 
ENSRT: .BYTE .ESC,.P,.EINST,O 
INRXT: NOP 
20-SEP-76 10:22 PAGE 29 
SEQ C040 


; REREAERAARARLALALAA LALA LALAL ALAA ALAA LALALA LALA AAAARALAARELALELES 
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;ROUTINE T WILL SCROLL IF A LINE FEED 

ia atte eccrine ater gra ee 1 
: y 

7A 1. Fr Core E7 SoH oF io tine FEED LAND RESULTING SCROLL} 
;ROW 00, COL.00 IS C po te ree ° 


COL. C Al 
IN SUBTEST B, THE C PLACED AT ROW23,COL.79 
IND 3 DATA Boane "a" TS ENTERED. THE CURSOR 
:POSITION IS THEN READ AND SHOULD BE ROW23,COL.00. THE 
"CHARACTER AT HOME IS VERIFIED TO BE A NULL. 

s oo EEEEEEEEEEERESESSEREREEELEEEESSEESESE RES ESEES REESE EEE SES REESS 


ES REEEEEEELESEERELEE SE RERESEELESESS SELES ERASE ERE EERSE SE LEE SS SSS 
ST14: SCOPE 


gt STINES ;;D0_S ITERATIONS 
acKSCRA,SLPADR ;:SET SCOPE LOOP ADDRESS 
CKSCRA: JSR RO, RESETV RESET THE UNIT. 
MOV TBBUF RL 


ISR RO, LDBLUF “LOAD THE XMIT BUFFER WITH: 
“BYTE 60,.€SC,.CDWN, .€SC, .CLFT,61,.ESC,.Y, .Rea, .COO 


-BYTE  .LNFED,.ESC,.CHOM,.ESC,.0,.TCUCH, .BEL,O 


MOV 816.,XMCNT ;SET UP TO XMIT 16 BYTES. 
JSR RO, XMREC 
BR 1$ ;NORMAL EXIT 
ERROR 11 iL AST XI CAUSED UNIT TO HANG. 
1S: CMP , #61 CRERACTER aT HOME A 1? 
BEQ CK YES TEST 
ERROR 23 :NO-ISSUE NO SCROLL ERROR. 
CKSCRB: MOV e RECITT SET UP FOR TWO REC. LOOPS. 
nov g +200, WOSTOR SET UP CURSOR POSITION STROAGE. 
JSR RO, LDBUF *LOAD XMIT BUFFER WITH: 
“BYTE .E5C,.Y,.R23,.C79, 101, .ESC, .0, .ROCUR 
-BYTE .ESC,.CHOM,.ESC,.0,.TCUCH,O 
MOV #13. , XMCNT ;SET UP TC XMIT 13 BYTES. 
Jah RO, KAREC *XMIT AND WAIT FOR RECEIVED DONE. 
Si 11 sLAST XMIT CAUSED VT61 TO HANG. 
ERROR EXIT 
1S: , ZERO * NULL IVED? 
FF eoR $3 os I NBCTECUE. NOV 
MOV j 200, SRBBUF” EO Re Bet VED CURSOR POSITION. 
nok 3m) s,UBH RESCOO. ON ERROR 
20-SEP-76 10:22 seers ‘ ° 
GDSCRL: NOP 


5 A a da a a a 
s THiS Heat INSURES THAT THE VT61 CURSOR 
;POSITI TO VERY POSSIBLE on POSITON 
;ON THE SCREEN. THIS IS TESTED BY FILLING THE 















1592 

ae 

ie 

i 

1$38 

1$99 

ie 

iba 142 900004 

1603 144 pier ae poe 001156 
ta iSe O01 007360 001106 
1606 007160 O42737 077577 OO2ee2e 
1607 pert 004037 015i 

1608 1 oles 

iei0 ae ae 016026 oie 
1611 007210 

191 GO7ele 001413 

1614 112777 oat? 01 005720 
1615 pt 

BS ee te BER oan 
1618 137 007640 

i619 2777 005672 






1701 156 016420 
1 13701 
1 13721 
ibe a3 ' 
i i 1 Sonos 15144 
1658 NgetaL 
1630 00 1 
1&3 1 
Ee Se 
ies 
: 4 002152 
1 16314 
| : 1371 164, 
016136 
i naltorc- (732) 
DZVTH. POI 


on 





os N GO4 CHARACTER(A) AND T 
Toning URSOR (VIA D eee My i: RY Fos 1T70h 
ag T tee "] HA I eR: ED WITH A SPACE. 
SEXIS ON THE Ree PLL POSITIONS CONTAINING : 
iNON-SPRCES ohne REPORTED. 
5 RHE ee EE A A dd a 


. ORCS Dpvgmeyreereqememarenrr corse 


tSTiS: SCOPE 
MOV 81,$7 MES oop 300 1 ITERATION 
MOV f tcey SCOPE LOOP ADDRESS 

CURS2: BIC 877577, VSTAT  ;CLEAR ALL FLAGS BUT XOFF AND XMKIL 
JSR RO RESETV sRESET THE UNIT. ano warT FOR XON. 
MOV aTOTCH, Re R_COUNT OF SCREEN( 1920). 

MOVB - 8SOM, a TBUFP i Scue START OF MESSAGE. 
JSR RO, XMIT1 

1S: DEC Re ; DECREMENT T XntT COUNT 
BEQ 10S :COUNT = 
MOVB $101, aTBUFP sLOAD THE CHARACTER(A). 

JSR RO, xf Tl :NO-XMIT ANOTKER BYTE 

CMP FTLCNT,ALWCNT EX FATAL * COUNT? 
BLO 1$ *NO-CHECK IF 

IMP cext 3 YES-ABORT TING THIS UNIT. 

108: nove sEOM, TBuFP * ISSUE END OF MESSAGE. 
yey PLR Pa EOS 
MOV Feast *LOAD xntT WITH 
MOV DCRAD, (RL)+ 
MOV 1,Re :R2 POINTS TO CURSOR ADD. IN BUFFER 
MOV Re3c7B (R1)# | CURSOR TO LOWER RIGHT -i. 

MOVE (RL)+ : 
as: MOV T >SET UP TO XMIT S CHARACTERS 
BIC * VSTAT : FLAGS BUT XOFF AND XMKIL 
1S STENA,OVXCSR = SXMIT I TS. 
hOV & -(SP) 3; ON STACK 
MOV #2,-(SP) : #2 STACK 
ISR LOOK FOR. XMIT DONE 
NOT F EXIT 
cH & ), CUHME : 0 HOME? 
Ree RO, CMPOS : XT POSITION 70 BE DELETED 
MOV LNRM, (R2) LOAD It N XMIT BUFFER 
Mee ORO.RESPTR «© TRESETINTERAUPT POINTERS 
° ; 

3B sep-7b 10:28 PAE 3h 
MOV CUHME OAD INITIAL CHECK POSITION(HOME) 
HOY ra iseT r fo XMIT A SON =DATA- EOM. 
MOV R1,Re’ XMIT BUFFER 
BIC Reso VSTAT Stone Peace BUT XOFF AND XMKIL 
MOV SCN, (RL)+ 
MOV (R14 ;CURSOR HOME 
MOV ESCO) (Ris 
HOV , A: 1)¢ s TRANSMIT ALL 
BIS #TENA, aVXC -SET XMIT ENABLE 
abe SXHONE (SP ts i ON STACK 


SEQ C042 
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000040 
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ERROR POINTER TABLE 


nov 93,06) DOM rush 99 ON STECK one 
ws: fy Bide |S ee 
; CLR DLAY ’ Bet UP fF OUT BELA 
40S: CMP RI. REUFP :C TER RECEIVED? 
gt? us vsTaT EL BOK FOR ENG. OF MESSAGE 
ae See + EOUND T, EXI ThE 
DEC Lay ; RUN TINE out DEL Y 6 
ERR i ey XMIT vie 0-H HANG. 
41$: MOV g UF ,RBUFP RESET Receive OIN INT 
See $ on KOT Bee Ea Kee ERROR-STORE IT 
cs: is RO, CPPOS : ROT 8 SPAGE-HUGT EE ER 
6S: CNP #TCRLB+20.,R2  ;STORED 10 ERRORS? 
BLOS)=sSS PEST TCNORE ANY FURTHER ERRORS. 
HOV ENRH, (R2)+ *STORE FAILING CURSOR POSITION 


MOV TBBUF .R "USE R1 AS ERROR POINTER 
1S: CMP (RL), AB4c79 30 TO LOWER RIGHT? 
BEQ > YES-NO ERROR. 
ERROR ee :NO= SSAGES 
HOY tRnoe SRGBUE «| TORBTRATCING bose ne 
JSR RO, CURER * ISSUE ERROR 
CMP RL, Re DONE WITH ERRORS? 
BLO 1 NO, DUMP ANOTHER. 
C2xT: NOP EXIT TEST 


ET UTINE TO INGURE PROPER OPERATION OF CARRIAGE RETURN 


TO_ INSURE PROPER OPERATION 


ey une 0: EB, ite eh holt! fe ones 
POSITION 1S the FeAD BND mies, BE Ro hott 
rH He cure IS THEN ISSUED AND CURSOR POSIT THON ve VERIFIED 


70 BE ROW, 
20-SEP-76 10:22 PAGE 32 


; AERLELLLLLELELLAAALELALAAALSELLLALELALAARALA LAER LLARALAALALAREELE 
s LEELLLLLLLLLLELELALA KE SLELLELLALLLLAE REEL LLLLAAALAAARA LA RAREAERES 


TST16: 
aS, STIMES :;D0_S ITERATIONS 
MOV § SNWLN,SLPADR ©; ; SET LOOP ADDRESS 
NWLN: JSR sRESET THE UNIT AND ENTER MAINT. MODE 


rears" 
RO “LOAD XMIT BUFFER WITH- 
-BYTE .€5C,.¥,.ROO, .C20 


-BYTE .LNFED,.ESC,.0,.ROCUR, .BEL,O 


Mey a3. pROENT BETES 1? XMIT 9 CHARACTERS 
ER 30$ 


sNORMAL EXIT. 
















SEQ 0043 
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be 
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= 0 Poh pe 
NAIA 
0 9 9 pe 
Wonvaulc 
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QOooo00O0000000 


f= a fo Bao bs fw fone fs BB hw gs 


EO PAN DANONE San 
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rs 


bb & = bo OF 2 2 ho hs bb ph Ph ah oh BR hb b-ohoRe 
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oe 


232 


Shand 


SISESFRTERES 


OOOOOOOOOO000o 
Hs bs ps Ft PS Ome fet Ge fe Ds BO a 


ee bens 
OOOO OOOO OOO000000 
poe Gee et Bae ae 0 Fa Fae ee Fs Pat he hs Fae bee Fe 


PERRET a Cee 


PG Bs b= Gs BF Fa tt be fen 


338 


| 


ERROR 11 EO4 . transmission CAUSED vT61 TO FAIL/HANG 
RY fey TEST 
aos: GMP ROIC20,aRBQUF HECK CURSOR POS. S/B ROW 1, COL 20. 


ERROR oicen.-csp) Bree Aoice0 ON STACK 
JSR RO,C : Yip AND Fete RURSOR ERROR 
3S MOV TBBUF Ri 
CARRT; (R1)+ sLOAD XMIT BUFFER WITH 
MOV SCOI; (R1)+ i CARRIAGE RETURN, READ CURSOR 
MOV UR? (R1)+ :POSI TION 
MOV 84, XMCNT iSET TO TRANSMIT 4 CHARACTERS 
JSR RO; XMREC GO DO IT 
BR 4o$ *NORMAL EXIT. 
ERROR 11 * TRANSMISSION CAUSED VT61 TO FAIL/HANG 
BR ug EXIT TEST 
40S: CMP ROICOO,@RBBUF  ;CHECK CURSOR POS. S/B ROWI, COL O. 
BEQ 4§ EXIT TEST IF GOOD. 
sb see T seppaT 
ERROR 1 ° s ISSUE IT 


Joe RO CURER FSET UP"An ISSUE CURSOR ERROR 


; LHLLLALASLALLLLLLELALERE LEAL LEAL LALELELEL LLL LLL SL LERELLLLLEEEEE 


;ROUTINE TO VERIFY PROPER OPERATION OF ERASE TO END-OF- 

5 BERESN SCREEN IS WRITTEN TO 1920 INCREMENTING CHAR. 

; TO END OF SCREEN IS THEN soled AND THE 

;ENTIRE SCREEN IS READ VERIFYING THAT IT IS ALL NULLS. 
Me tiiiitiiiitiiiititiiittiititiitiititititiiitictriti titi tt tit 


s LELFLLLFLLELELELLELLLALLLALLLLELELLELLELLLLEALLLLALELALERALLAAEE 


tsT17: 
MOV #3, STIMES ;;D0 3 ITERATIONS 
20-SEP-76 10:22 PAGE 33 


4§: 





WERSE,SLPADR # ;;SET SCOPE LOOP ADDRESS 


ERSE: SR RO, RESETV ;RESET THE UNIT -SET MAINT. MODE. 
Bi ee ea 


;LOAD XMIT BUFFER WITH: 
.ESC, .CHOM, .ESC, .£0S, .ESC, .0, .XMTAL, 0 


E 
E0S, $GDDAT LOAD ERROR WITH ERASE TO EOS 


87, XMCNT ;SET_UP TO XMIT 7 BYTES 
» XMREC ;XMIT AND WAIT FOR REC. DONE 





ESC 
: XI Test 
*VT61_XMITTED SOM/EOM ONLY? 


S$: 
;YES-EXIT TEST. 
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MACY11_27(732) 
ERROR POINTER TABLE 
613737 001740 
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VO 

- | 
—-OO 
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3 
SStStt=t 
RESeS 


Co 2B [eo [eesRss 
sues sanee 
4 
F 5 
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me 
g8 
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cs 


ee ee ee ee 


co 00 co coco GD cocoa aD 
OO NOU .£ WTO 


ae 
i’ 
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cL: 
oe 


SRRTSRRETaTROT ESD 


SORES SSSR ISS 


OOOOOOOOOCOOOOOO0O000000 


P= Ds b+ Bs hm Bt Bs fee Fane Pa HB HS Ot BS be hb 


21 


eB Ob Os BO = PB & = Be + Os = = D2 pe Bs Pw ee 


en eo a 
8 
faa 


‘ru 


| 
i 





GE do cary OT PERE Hants 
MO SRSEUF, $e008T 

ERR 4 ; ISSUE DATA ERROR 

ERSXT: NUP 


5 EEE HEHEHE EEE EE EEE EEE 
; 0 SE INDICAT 


sROUTINE TO SET UP END OF PASS INDICATION. 
‘BRD AN ERROR 15 ISSUED TF THE UNIT CANNOT RESPOND AFTER 


ee LED belch cha ete ee 


IF SENT 
: S OMMAND TI (NOTE: THIS WILL CAUSE 
PE Unt TO Bg "BUSY" BND ROT RESPORD uf ANY FURTHER COMMANDS 
: HAS BEEN COMPLETEL : 
: PEETTTTITTSTSETITETSSTTITETTSTETETTT TEST ITT SST TTT T TST TTT TT TTT TT 
° ee RE ee 
#1, STIMES ::D0 1 ITERATION 
statet SEPAOR >:SET SCOPE LOOP ADDRESS 
LSTST: 
MOV ZERO -(SP) ss TACK 
MOV STER, -(SP) >:PUSH TSTER ON STACK 
ESCO, -(SP) 


MOV 8 
JSR RO, TESC TRANSMIT IT. 
JSR RO, GETON GO LOOK FORA XON. 


Rov _vACSR,ScoDAT © :LORD fre AbpRess 


20-SEP-76 10:22 PAGE 34 


MOV VECT, SBDDAT sLOAD THE VECTOR 

ERROR 1 “REPORT SELF TEST FAILURE 
ee at 
SRY Haart” EAN Thi a tn per tn 

MOV #1001. BL >SET UP BEG br XMIT BUFFER 

nov $300. RS. *FILL BUFFER WITH INCREMENTING CHAR 

MOV 8960. , XMCNT ;SEND 12 LINE TO VT61_ 

BIS 8TENA’ aVXC +E XMIT INTERRUPTS 

MOV SXMONE,-(SP)  .3;PUSH 8XMDNE ON STACK 

MOV #10. ,-(SP) ::PUSH #10. ON STACK 

JSR RO, WTBGND LOOK FOR ‘ 

BR ENDsEL *NOT F IT. 

be OSS aay : 

MOV SSETREV,R3 iNOoT ENTER REVERSE VIDEO 

JSR RO, LOXMET : : 

Inc : HALF FLAG. 

: COND HALF IN REV. VIDEO. 

3$ BIT 881700, IDENT : Dent = COPIER? 

MOV BEL cs as TACK 

MOV ceRO Ye (SP) yt #.¢ vee aN STACK 

HOV ESCN, = (SP PUSH ESCN ON STACK 
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oocoo4 
Des 018737 Oioese Dolide 


004037 016136 


JSR 
ENDSEL: age 


ENOPS: 


1100 
MACY11 27(732) 
PASS ROUTINE 


__KYBD: 


RO cxasrT G04 sCHECK FOR A PERIPHERAL ABORT. 
mod :IF IN MAN MODE DO NOT ENTER EOP. 


ND 
ASTR 
Bic SROENA, JVRCSR 
MIittiitittitiiiitiiiititrtiititiiitiiititttititiiiiitit ttt itty 
-SBTTL END OF PASS ROUTINE 
;#INCREMENT THE PASS NUMBER (SPASS) 


; INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
sie “END PASS 8XXXXX" (WHERE XX IS A DECIMAL NUMBER) 


IF THERES A MONITOR GO TO IT 
:eIF T ISN’T TO MODCA 


SEOP: 
SCOPE 
CLR STSTNM RO THE TEST NUMBER 
CLR STIMES ZERO THE NUMBER OF ITERATIONS 
INC SPASS $i eERO Te THE PASS NUMBER 
BIC #100000,SPASS ;:DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ > LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN 3; YES 
MOV (PC)+,3(PC)+  3:RESTORE COUNTER 
SENCCT: _HORD 1 
FOO SENDMG ;;TYPE “END PASS # 
MOV $PASS. -(SP) *:SAVE SPASS FOR TYPEOUT 
20-SEP-76 10:22 PAGE 35 
TYPDS 3390 TYPE--DECIMAL ASCII WITH SIGN 
, SENULL >: TYPE A NULL CHARACTER 
SGET4e: 
MOV 3842, RO 3;GET MONITOR ADDRESS 
BEQ SDOAGN ; s BRANCH IF NO MONITOR 
RESET CLEAR THE WORLD 
SENDAD: J PC, (RO) G0 TO MONITOR 
NOP *:SAVE ROOM 
NOP ;3FOR 
NOP 3;ACTII1 


* IMP JeMODCA ; RETURN 
SENONG: “ASCIZ <15><12>/END Pass’ 87 


NULL CHARACTER STR 


SENULL: .BYTE 
jeuaieauisusneeavelanteaneeneceadbeantenneeavenateesreanteentey 


CHO aM oie KEYS FOR TAB, BELL, CARRIAGE 
;AND LI io IC, NON-DISPLAY PHAR.” ECHO OCTAL 
;EQUI Y Sc, 8 CHO VES. 
5 (E S E ante OR 037, SPACE.) A 


EXIT. 


5 RHRARELAHLELELELRLLLLLRELLLLLLLELRELLELAAAAAARLLARLAARLAAARLALELE 
s REESE GELLER EERE EERE E EERE EERE EERE EERE EERE EREE 


ay SKYBD,SLPROR ::Se7 SCOPE LOGE ADDRESS 


JSR RO, RESPTR 










;CLEAR REC. INT. BEFORE NEXT UNIT SELECT. 













soxyeo,reU4 «Loan messace ADDRESS 1 









14 ee: pi | 717 uy RO, OSME AY K S 
1833 Oiese Bie7o3 bebees MOV Ane 23 DIS SON FREE Ce EMIT ADE nce 
1601 Ol iPtes = 
tags aesZ3 etaced ean ISR RO, LOXMIT sISSUE EXIT MAINTENANCE MODE. 
1903 019676 042737 77 O02222 KYSTRT: BIC a teg VSTAT  :CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
1904 01 020120 TSTB SEE IF A CHAR. I 
1905 01 1g 1001 ONE ae : YES-GO PROCESS I 
1s iG i 110 11S sane PRI sWAET, FO aest 
es iste Aivaad pepaig JSR SRO Eras * CHECK FOR A esTT eo CoRDLT TONS 
ins Glaeser fe i PHS 
1911 nite ween hang 10$: CLRB dABUFP > CLEAR Tes FROM BUFFER 
131¢ 010736 000400 02222 BIT #ESC, VSTAT : CHAR. sESC(033)? 
191 gL I BEQ 12$ = NO 
1914 O1 014636 CLR ESAMB YES - RESET ESC ASSEMBLY FLAG 
1915 01075 01 025627 MOV #DESC,R3 "LORD ESC MESSAGE ADDRESS 
1916 O1 SR KYBXMt 
1917 010760 120127 Oo00041 125:  CMPB  Ri1,#41 ;CHAR. LESS THAN 41 OR 
1918 010764 103415 BLO 2$ ‘HIGHER THAN 176, GO ECHO 
1919 010766 120127 000176 CMPB OS soR1, #176 ?OCTAL EQUIVALENT 
1920 010772 101012 BHI 
MAINDEC-11-DZ2VTH-A MACYI11 27(732) 20-SEP-76 10:22 PAGE 36 
DZVTH.P11 END OF PASS ROUTINE SEQ 0047 
1921 010774 110177 oO4142 MOVB 1, aTBUFP sLOAD CHAR. IN XMIT BUFF. 
1922 011000 004037 016026 ISR RO; XMITL 60 XMIT IT 
1923 011004 112777 OO004O 004130 MOVE #40, JTBUFP SPACE 
1924 O1101¢ SOO? 016026 ISR RO, XMITI AND XMIT IT. 
1925 01101 BR KYSTRT 
192 911020 120137 001746 23: CMPB = R11, BEL CHAR. =BELL? 
1927 011004 00 BNE 3$ 
1998 011025 O01 026103 MOV #O0BELL,R3 sLOAD BELL MESSAGE ADDRESS 
1929 011032 Oo00426 BR KYBXMT 
1930 011034 120137 001754 3$ CMPB sR, TAB CHAR. =TAB? 
1931 O11040 1003 BNE 4§ 
1932 O11 12703 026064 MOV #DTAB,R3 sYES-ECHO ’TAB’ 
1933 011046 900420 BR KYBXMT 
1934 011050 123701 001750 4g CMPB = CARRT, RI CHAR. =CARRIAGE RETURN? 
1935 11064 1003 BNE 
1936 O11 012703 026071 MOV #0CR, R3 sYES - ECHO ’C/R’. 
1937 011062 OOO ie BR KYBXMT 
1938 011064 120137 001752 cs CMPB  -R1, LNFED CHAR. =LINE FEED? 
15g GLE BPE care A OE ee 
teu) OLi076 | Sood Ok 
1942 011100 D040? 017266 6S: JSR RO, BINOCT ;CONVERT BINARY TO OCTAL 
ion Btttt0 ee pease 002222 KYBXMT ae SSENS' GeTAT 5 CLEAR LAGS BUT XOFF AND XMKIL 
1945 O1i116 paaaa? 16076 isk RO, LOXAIT OEE ONTT BUFFER 
1H 1ll22 000665 KYSTRT "WAIT FOR NEXT CHAR. 
1548 sSEQUENCE TO EXIT MAIN MODE. 
1949 11124 033 117 141 EXMAIN: ‘BYTE .ESC,.0,.DMAIN, 
1950 111 000 
ios ee AB GaY WAGE TAOS eet HUNTER SRT 
13s SE a a 
| 1355 Barty ENTERING TEST. A PATTERN 


iy INCKE CHEN ING . WILL BE OUTPUTTED UNTIL A 
‘CONTROL C(003) sc aLnaG Cr 


N 
| 
j 








oF = b 2 b-2 bo bh &  & — 6 — B= Bs B= 9-2 pp Fg 


PERERRRRiadadtaa cadet: 


MA 
DZVTH.P1 


bbb 


ePRE LEER eet Cie nn 


icici 





ipypppnney 
DONOUWLCGINO 


ns 
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012737 011146 001106 
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e Soese 


ae 


013746 
013746 
013746 
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END OF PASS ROUTINE 
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8b 3 b—3 8 be baa Ree FB he Bn he Bet fh we Be Bn bs Pe 
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3$: 


6S: 


MOV 


TPRNT: MOV 
JSR 


MOV 
20-SEP-76 10:22 PAGE 37 


4§: MOV 
cs: BIC 


#1, STIMES 


STPRNT, SLPADR 


5 RRHAREREA ALE LAL RAE ALAA ALS RAE ALAA LEE EEE LAA LAER ELLER EA AEEREAS EES 


mie tae aan yee ai aaa aaa HSER RCE TS: 
U 


;;00_1 ITERATION 
;;SET SCOPE LOOP ADDRESS 


;LOAD pRanres MESSAGE ADDRESS 
sAND ISSUE IT 


Se EXIT MAINTENANCE MODE. 
;G0 SET CARRIAGE RETURN 
;;PUSH ZERO ON STACK 


;;PUSH EPNT ON STACK 
;;PUSH ESCN ON STACK 


" sLOAD R1 WITH XMIT BUFFER 


;RS=1ST 


CHAR 
;CLEAR ALL FLAGS BUT XOFF AND XMKIL. 


;R3= LINE WIDTH 

;G0 BUILD A A OING PATTERN. 
;LOAD A C/R AND L 

;SET UP TO XMIT BY BYTES. 
;WAIT FOR XMIT DONE 


;CHECK FOR A PERIPHERAL ABORT. 
CHECK FOR EXIT REQUEST. 
:NO-CONT 


sYES-EXIT TEST! 
EXCEEDED PATT. ‘Limit? 


:NO 
YES RESET IT 


ae 


We yToh we TO 
RESULTING 


Bat ac ita CAN Pie's OE SIMULATE, 


eeccuucuatesesecesdinctuccbeusssesscenivuss 


ao aacaaemaapamaans rir: ingeneet camamamme resins tires: 


sROUTINE TO LOOP DATA/COMMANDS 
: THE A, TA TRANSMISS 
HF 
CIFIC 
mit Sent es iol 
tste3 ao #1, STIMES 
MOV pTST SEPAOR 
vs a 
MOV SEXMATN’RS 
13h RO,LDxNtT 
IMP Reta 


5 RRRERLE EERE EERE RELL ELAR RA REA RAA ERR REAA EAE ELE RREA EERE RERES 


+ Oe SCOPE LOOP ADDRESS 
iRERD LOOP MECEAGE ADDRESS 
{DISPLAY IT 

;TSSUE EXIT MAINTENANCE MODE. 


:GO_L 
;ENTER HAN MODE VIA SCOPE ROUTINE. 


SEQ 0048 






















nega: THE SCREEN, FLL ERRORS, 
2022 POSITIONAL FORMAT AND THE 


= 


M 

; WiLL E EERO Henn post ON eNOr THEIR INDICATED MNEMONIC. 10 
L CAUSE AN AUTOMATIC EXIT FROM TEST. 

PTET ETT TPErer er err erersreveer rer eeertererseeeryett ttt tt rer tT tty 


s LLLLALLALALLERALE LEK LEE ALL LAAA LE LARA LEAKE AARELRERLLLAEALLERERE 


SIs 





911400 tst24: SCOPE 
2031 011402 012737 000001 001156 MOV #1, STIMES :;D0 1 ITERATION 
2032 O11410 012737 011416 001106 MOV wPOKBD, $LPADR ;:SET SCOPE LOOP ADDRESS 
MAINDEC-11-DZVTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE’ 38 
DZVTH.P11 END OF PASS ROUTINE SEQ C049 
2033 
2034 
203S 011416 012702 O26502 PDKBD: MOV 8DKBD ,R2 
2036 011422 O04 017172 ISR RO  DSMES ;DISPLAY KEYBOARD TEST MESSAGE. 
0114265 002206 CLR BUBCT CLEAR ERROR COUNT LOCATION. 
2038 O11432 o0S005 CLR RS 
soaG 011434 016504 011560 DOAROW: MOV DTTBL(RS),R4Y  ;SET UP ’GOOD’ CHAR. POINTER 
2041 011440 016503 011532 MOV MSTBL(RS),R3 
2042 0114944 001414 BEQ T sMESSAGE WAS ZERO-EXIT. 
2043 011446 100421 BMI CLMAIN IF MESSAGE IS -1,CLEAR MAINT. MODE. 
2044 O114S0 004037 016076 JSR RO, LOXMIT ISSUE ROW OR FUNCTION? MESSAGE. 
2045 011454 004037 017716 JSR RO; CKKBD GO CHECK IT. 
204% O114680 123727 O0e2e06 oo0012 CMPB = BUBCT, #10. ; TEN ERROR EXIT? 
2047 O11466 103401 BLO 1$ 
2048 911470 p00402 BR FEXIT I YES-EX IT TEST. 
2049 0114 05725 1S: TST (RS)+ INCREMENT OFFSET. 
2050 011474 DOAROW *NO-DO NEXT ROW/FUNCTION. 
2951 011476 Gi2702 026253 FEXIT: MOV #DEXT, Re 
2052 O11SGe 004037 017172 ISR RO, DSMES s ISSUE EXIT MESSAGE 
2053 011506 000137 Jie? ASTRT 
2054 0115i2 012703 011526 CLMAIN: MOV #RSMAIN, R3 ;SET UP TO EXIT MAINT. MODE. 
2055 011516 004037 016076 JSR RO, LOXMIT 
2056 011522 005725 TST (R5)+ s INCREMENT OFFSET. 
2057 011524 000743 BR DOAROW *NOW TEST CONTROL AND SHIFT FUNCTIONS. 
2058 011526 033 117 141 RSMAIN: .BYTE .ESC,.0,.DMAIN,O’ 
2059 011531 000 
2060 
2061 
e0be ;TABLE OF MESSAGE ADDRESSES. 
2064 011532 026705 027012 027047 MSTBL: .WORD DTOP,DSEC,DTHRD,DBOT 
Spee pt euS pera7e 7300 177777 WORD DSPCE,DKPD,-1,DCONT, OLSHFT, DRSHFT, 0 
° , 9 #8 , ’ ? 
Spe? Olieed Gevize Gebess doera? 
e0be 011556 OG0000 
2070 O11560 27501 027522 027542 DTTBL: .WORD ROW1,ROW2,ROW3,ROWY, SPCB 
207 tise B27 60; 
oO92 11572 027604 000000 027576 .WORD KYPD,O,CNTRA, SHFTA, SHFTA 
2073 011600 027600 027600 
; RERRLAALALKLA LLL RALLA LALA LALLA A RLAAKLAAAL RAL RAELA RELA LA LRALLELE 
. T TUP FROM MULTIPLE ENTR 
TF itiititititiitititiitiiiiiiiititiiitiiitiitiitt ett 
oor 011604 SETA: 


mee 
Ora + 


O— 0 = bo pmo Be =o pe pe 
pa a tt 


[sas 


O— pao Bs bh Po sp op pee 


=——-OO0000000 
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rereeecee ee 
ocoooceoceooesooeocoeoo 
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SISRIS ER 


ooo 
roretuny 
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Stet 
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18 
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- 
A 
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o00 


bap 


eh ee be ae eh he he ae hn be he a he ne be he be 
oO0 oO 
By rs 


Ooooo000 200 
ee ee eo er a Gs be 
furururu 
[oe oe Sor 


rervrurorurororonyrorururorsrururururorururororururorurorurururururururururururury 
TVMoe 


SSBVKRLGVHSSBVERVSRE Soo iensow-SSBIRRZGR=B 


— 0 bb B= 0 = 0 BB a be he 


FOSRVRW 


001100 MOV cen, rKO4 Laps 3 LOCATION TO BE CLEARED 


CLR (R6)+ ::CLEAR MEMORY LOCATION 
001126 CMP #SBO0AT, Rb : :DONE? 
BNE ss LOOP BACK IF NO 
001100 MOV SETUP THE STACK POINTER 
oo0020 MOV asTACKS aslorvec' >TOT VECTOR FOR SCOPE ROUTINE 
000340 o00022 MOV #340 aalorvecee 
021060 000030 MOV FecRAOR a#EMT vec? : EMT VECTOR FOR ERROR ROUTINE 
mae Racy . Tee 20-SEP mY 10: aatnigaueivecse ff 
END OF price Ab Fine SEQ 0050 
022436 000034 MOV usTRAP QSTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
000036 MOV SETRAPVEC+2 LEVEL 7 
000024 MOV RO PMRVER ; sPOWER FAILURE VECTOR 
000340 o00026 MOV #340 DePURVECSE EVE 
010536 010530 MOV SENDCT, SEOPCT esti eno OF-PROGRAM COUNTER 
005037 001156 CLR STIMES *: INITIALIZE NUMBER OF ITERATIONS 
005037 001160 CLR SES $3 HE ESCAPE ON ERROR ADDRE 
112737 000001 001115 MOVB #1, SERMAX *ALLOW ONE ERROR PER 
012737 G11730 001106 #.,SLPADR 5; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
012737 011736 001110 MOV #. 'SLPERR TUP THE ERROR LOOP ADDRESS 
01374 900004 MOV aed, -(SP) SAVE ERROR VECTOR 
013746 MOV 386, -(SP) 
012737 011770 O00004 MOV sSET UP TIMEOUT VECTOR 
005777 167150 TST asuR ae TO REFERENCE HARDWARE SUR 
Tf : 176 001136 1S aR SS ecc SWR Wane Su Ten Ree 
nae 4 
piers? 900174 O01140 MOV #D1SPREG, DISPLAY’: : POINT "SDF sense Be Btepcay a Ret. 
022626 (SP)+, (SP)+ oie 
12637 2S: (SP +, aa STORE ERROR VECTOR 
1 MOV (SP)+’a84 
Hb EEE cx Pata Lar a 
hee SPL 0 “PROCESSOR IS 11/45? 
012737 Op0004 017072 MOV #4, PMULT *YES-DELAY MULTIPLIER = 4 
COO416 BR RTRP 
022626 TRPA:  POP2SP ;NO 
2737 012066 O00010 MOV #TRPB, a810 RELOAD TRAP ADDRESS 
006737 1 SXT CHRD ; PROCE SOR IS 11/40 OR 35? 
017072 MOV #2, PMULT *YES-DELAY MULTIPLIER=2 
BR RTRP 
orzo7e TPB! EOEESP a oMULT ; PROCESSOR 11/05 
nee Bh0070 RTRP: MOV #12,0810 -. RESTORE eee bafeHER 
002174 STB HODE CHECK MODE FOR CORRECT EXIT. 
IMP MANSA sEXIT TO MANUAL SELECT 
002240 70$: § JMP AUTOA “EXIT TO AUTO 
j HAEEEEESEEEEREAESBENOSEAUENEESSOSEEREOSERAEEESOSSEEEELENOREEES 
sTHIS ROUTINE MAPS ALL P DL11 ADDRESSES AND STORES 
;THEM IN A TABLE a INTAB) -B ALE HopReEseS WHICH DO NOT 
*RESULT IN TIMEOUTS ARE ST ORED. 
Pr riittiittiiiiiitiiitiiiiiitiiitiiitttiitttttt ttt ett 
TRPVEC: MOV #306, 81 ;START AT BEG. OF FLOATING VECTORS 
000302 MOV #302, Re 
MOV 4 FS *R3_ CONTAINS IOT TRAP INST. 
1S: MOV ke. ‘START LOADING ADDRESSES 
MOV R (Ride LOAD THE TRAP 
ooo004 ADD #4, Re "ASSUME 4 REGISTERS PER INTERFACE 
001000 CMP Ri’ #1000 * DONE? 
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END OF PASS 


5 901650 MOV #INTAB RS 
16102 001714 FADD: MOV STRTABIRI) ,Re 
001722 TRPE: CMP ENDTAB(R1).Re 
BLO TBLC 
TST aRe 
MOV Re, (RS)4 
000010 FADDI: ADD #10, R2 
BR TRPE 
TPENT: POPeSP 
FADD 
TBLCK: TST (R1)+ 
000004 BIT #BIT02,R1 
BEQ FADD 
CLR (RS) 
TS RO 


LO4 .no continue LOADING TRAPS 


tit 


Fa UP Fhe GUT TRAP" ADDRESS 


LEAR THE TABLE POINTER 
SEG 0051 
s RESDESTINGT ION TABLE 
;PUT THE ADDRESS TO BE Hedy IN Re 
HHBVE WE ae END OF TABLE ADDRESS? 
;YES GET NEXT BASE 
ADDRESS THE DEVICE IF POSSIBLE 
SIF WE GOT THIS FAR THERE IS A DEVICE THERE-SAVE IT 
; INCRE TO THE NEXT POSSIBLE ADDRESS 
GO TEST THE NEXT AD 
SRESTORE THE STACK AND TEST 
iN NEXT ADDRESS 
AREA COUNTER BY 2. 
SEE IF BOTH DL11 AREAS SEE CKED. 
3NO-GO CHECK THE OTHER 
;SET UP TABLE TERMINATOR OF ZEROS. 


R 
ene Ete tt ba ha ae eee 
;THIS ROUTINE WILL INSURE THA 


THE DEVICE(DL11 


sWILL INTERRUPT WHEN XMIT INT ENABLE BIT IS ee 
titi tt ttitittttitiiiittititiiitititititiittittitttititii ie 


CDEV: CLR -(SP) 


;CLEAR THE PSW,LSI11 STYLE. 


; INSTALL IOT_ TRAP INST. AT LOCATION 4. 
:SET ae TRAP EXIT ADDRESS 
;SET TO 7-ALL ae ia INTERRUPTS 


sVEC TOR ESS 
eh iii tie “Set.” 

PS ERIT Ne 

INSURE ADDRESS IS IN PROPER RANGE(17XXXX) 


5 ROORE IS DEFINITELY NOT GOOD -PURGE 
3 AIND LOOK FOR ANOTHER. 

LOAD NEXT ADDRESSES TO BE CHECKED 
;NOW USE_R1 AS FAILSAFE COUNTER 

;SET XMIT ENABLE 

;1F DEVICE DOES NOT gt ae ay WITHIN 
err ne 200US IT IS 1. 
yh een TRY ANOTHER DEVICE. 


RESET 70 RECEIVER” CTOR ADDRESS 

38 Fe IN VECTOR TABLE(VVECT). 

POP OLD PSW AND DISC 

PSW PRIOR TO INTERRUPT. 


esp HE ADD. AND 
sed... Reiland 5 BAA to HH 


ENC 
ENTRIES I 


Breer ene vert Fae) cgpy SOUERR THE POUALSILL STE. 


012252 Mov 41008, - (SP) 
000004 O00004 100%: MOV 
012356 oo002 MOV rite, DBIOTVEC 
oogoce MOV #340, J#IOTVEC+2 
RESET 
001550 MOV VVECT,R3 
at my vee 
ppigie CDEVA: MOV SVRCSR’ RI 
TST (Re) 
BEQ AOUT 
BMI 1$ 
oooo0e2 ADD #2, Re 
BR CDEVA 
013040 1S: JSR RO,L 
001200 MOV #1200,R1 
000100 167364 BIS sTENA, aVXCSR 
BR ‘Pn 
000100 167350 TDEV: BIC gE NA QVXCSR 
000010 SUB #10, (Rb) 
MOV (Re), (R3) 
TST 
sTHIS ROUTINE IS A QUICK 
TA PATT ILL 
CLR 
012405 _ MOV meena 


1005: _ MOV 
_MACYLI 27(732) 20-SEP-76 10:22" Pace 41 


;CLEAR THE PSW,LSI11 STYL! 


;GET THE RECEIVE VECTOR ADDRESS 





= 
£o 


oa tt at ae a 


ERSS2S3 
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Fororororororofororone 
ee ee me te eae he me ee 


be Phe b abe eae 
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2257 12654 012637 002160 
2258 012660 100414 
|_€659 Olebbe 1e37e7 002160 O00140 





END OF PASS ROUTINE 


167264 
167262 


167240 
167226 


ocooo4 


000020 
000022 


MACY11 27(732) 
ROUTINE 






MO4 


NOV WRECAD, (R (RL)+ aN S10 BE SAME so 
aTS my) R1)+ :STORE THE XMIT VECTOR ADDRESS 


MOV 34 caLD SET XMIT PSW TO 7. 
MOV Sins 4 RY IS Now ATA PATTERN OF 1. 
CLR i -SET UP FAILSAFE DELA 


BiS #RDENA,JVRCSR ;SET RECEIVE ENABLE. 
BIS #TCOMB, JVXCSR aa LE XMIT INT. AND MAINTENACE . 


1$: TSTB = RY XMIT PATTERN COMPLETE? 
BEQ GDAD sYES GO_ST ae we ADRESS 
DEC Ri CYCLE TIMEOU 
BNE 13 2 NOT YET TIReQUT™ K EP CYCLING. 
SUB RESET VECT 


BIC eFechB, aVXCSR ;CLEAR XMIT AND RECEIVE INT. ENABLES. 


EN tRDENA, ‘ JVRCSR 
YPE sISSUE DL11 FAILURE MESSAGE. 
MOV ORESR -(SP) ; ; SAVE VRCSR FOR TYPEOUT 


: TYPE 
TYP ::G0 TYPE-- ASCII 
roe 6 Hue 6 Distt ¢g) 
"BYTE 1 ?: TYPE LEADING ZEROS 
TYPE RLF 
BR DEVE GO TRY ANOTHER RSET 0 OF pODRESSES. 
GDAD: MOV VRCSR, (RS)+ : SAVE GOOD AD 
CLR JVRBUF ‘CLEAR ANY RECEIVE FLAG STILL SET. 
BR CDEVA ; {CHECK ANOTHER DL11 
AOUT: CLR (RS) ZERO TABLE TERMINTATOR. 
MOV #6, 084 RESTORE LOCATION 4 TO HALT CONDITION 
CLR ae *TO CATCH ERRORS AND ILLEGAL INTERRUPTS. 
MOV #SSCOPE, J#IOTVEC’ sRELOAD IOT VECTOR FOR SCOPE 


MOV #340, a#L0TVEC+2 ;LOOP. 
MOV #300;R1 
MOV #302’ Re 

1$: MOV R2, (R1)+ 


CLR (als sRESTORE HALTS TO ALL LOCATIONS CONTAINING IOTS 
ci Ri, #1000 ;TO LOCATION 1000 

RESET sCLEAR ALL FLAGS 

RTS RO 


“ogame, ist ae re oy tr hme green 
; INITIALIZATION ROUTINE FOR AUTO SEL gta THIS ROUTINE 
sWILL INSURE rear ALL DL11S IN DLTBL_HAVE A VT61 CONNECTED 

UNITS WHICH CANNOT CORRECTLY RESPOND WIL’ 
MOTT TT TTT tereTrtete Tere etreertt rT etrtertr ert rr et Teer er tT 


INITA: MOV #OLTBL,Re 3Re POINTS TO DL11 ADDRESS TABLE 
MOV #VVECT,R3 R3_POINTS TO DL11 VECTOR 
11S: MOV BVRCER, Rl SPOINTER TO VT61 DLI1 
TST (Re) a CHEC 
BEQ INTXT ; YES-EXIT 
JSR RO,LDADD :NO-GO LOAD THE ADDRESSES 
ADD #2,R3 sUPDATE VECTOR COUNT 
JSR RO, ZFLAG ISSUE ESCZ AND LOOK FOR RESPONSE. 


es: 
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OP STACK INTO CHRD 
MEOUT OCCURRED NO CHARACTER 


Moy (SP)+, CHRD 
ECK IDENT FOR VT61 IDENTIFIERS 


B 
CMPB = CHRD, #140 


» sp 
TI 
‘CH 
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o000 


2 phe ee 


St=t=t=t=s=+=4 
Jus ceRSUSSN NER 


PRaSeRe 


88 


—— 
£oO 


ee le eed ee ee ee a a ee el ee a oo oe ed 


103410 
1 tt 

1004 
012637 
001375 
000747 


092169 900172 


002160 


002160 


000002 
000002 


000001 
013250 


000091 
013250 
001610 
022727 


O0S670 017074 
017032 
000004 


001610 
022655 


001167 


S$ NO4 ;NOT A "ae be UP 4 aT ADDRESS 


GYD, 817¢ 


(SP)+, CHRD 
4$ 
11$ 
(SP)+, CHRD 
S$ 


N 
$3000. , DCOUNT 
RO, DELAY 


R 
#OLTBL Re 
,DUNTST 


(R2)+,-(SP) 


-o 


SCRLF 
tRe) 
1$ 


« 


‘ROT A Viel URGE ft 


;;POP STACK INTO CHRD 

;TEST ANOTHER ADDRESS 

;;POP STACK INTO CHRD 

;RESET ADDRESS AND VECTOR FOINTERS 


;;PUSH Re ON STACK 
;;PUSH #1 ON STACK 


;;PUSH R3 ON STACK 
;;PUSH #1 ON STACK 


; TRY ANOTHER DL11 ADDRESS. 


;CHECK TO i GOOD ADDRESSES 
;YES-GO TO NEXT TEST 

:NO-ISSUE NO VT61 MESSAGE. 

;SET peeey TO 30 SEC. 


SET UP ’NO VT6i FOUND’ EXIT 


;LOAD_ AND ISSUE GOOD ADDRESSES 
OF RESPONSIVE VT61S. 


; 3 SAVE (R2)+ FOR TYPEOUT 
3:GO0 TYPE--OCTAL ASCII 
*: TYPE & DIGIT(S) 

+: TYPE LEADING ZEROS 


;AT END OF GOOD UNITS? 
:NO PRINT ANOTHER ADDRESS. 


RTS RO 
5 RARE REAR REEL EE REE REEL HELE EERE EERE EE EEE EEE REELS 
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MACY11 
END OF PASS ROUTINE 





INE TO LOAD 4 ADRESSES FROM THE 


peat iON AT (R2). 
OCATION POINTED TO BY R1(TO VXBUFF42) ROUTINE USES FY AS 
G AND EXITSO WITH TED 


INCREMENTED BY 2 


PiiiiiriieiriiiirciiiiiiiiiiiLiiitiii iii 


3 SUBOUT 
310 4 
W 
LOADD: MOV (R2)+,R4 
ig: MOV RY, (RI) 
ADD #2,R4 
CMP Ri, sVXBUF +2 
PLT 
RTS 


; LORD THE RODRESS 
HINCREMENT BORE Ss 


* EESESESEFSSRELERESESELESFSSSESSASERESLSSLA SLE LLLAAELSAAELLELE LES 
b0-SEP-76 10:22 PAGE 43 


;ROUTINE TO RECEI | 
; HARACTERS TO ree VE i 
ITS 1 CARACTER(S) ON STACK. IF 


VE_ CHARACTER(S). 


r 
3 


S. 

$ 3h “1 ON STACK. FORMAT 

1) . OF ZEROS TERMINATES 
K. SOM/EOM, IF SENT, ARE RECEIVED 


5 ELELEEERERREER EE LEE LER LEER RA LEAL RERE LESSEE RRE LSE ESE EAE LEE ES 


RECTM: 


MOV 
MOV 
MOV 
15: CLR 
CLR 
3S: BIT 
BNE 
DEC 
BNE 
31S: MOV 
ER 
4§: MOVB 
BIC 
CMPB 
BNE 
DECB 
BEQ 
CMPB 
BLO 
41$: CMPB 
BNE 
ane 
ss: CMPB 
Q 
CB 
Q 
MOV 
BR 
RECEX: 
MOV 
RECEXA: 


123 
we 





CHRD, -(SP) 
ROSVE, -(SP) 
RO 


;;POP STACK INT ROSVE 
:;POP STACK sNTD gener 


; ACK 
STORAGE LOCATION. 


:CLEAR 
;SET UP FAILSAFE DELAY 
;SEE IF DONE FLAG SET 


FAILSAFE CNTR. 
SANT RO DOR TRUE WAITING. 
:SET UP FOR FAILSAFE EXIT. 


sea 
= 34 
2 


Bultg vier 
QUAL My UP 
i FIRST ? 
THIS ONE. 


i CHAR. ACTUALLY SOM? 


COUNT. 
ERROR EXIT. 


;;PUSH CHRD ON STACK 
;;PUSH ROSVE ON STACK 





an me ne — cm nn 8 ne ee 2 ee ees 


da tats 
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OOOOOMOOO0O0O0O0000 


FeeeeereeT Tree PeEC rere peeRr Tre gerne 


| 


puny 
V0 
-s 
$2 bs 
i 


Beano eRSARe ROOD 


2 0 a P= Be pa F=f 2 fa Pas Bs Ps Peo H+ Bie 


Ge ha Bs Be fend Bes Bees Fos Bt FB Ps B88 Bo hb = G2 Bs Bs Bae pee hh Bo 


SoRRR SRS SNe RORAS SERORR 


a8 caret 


ne 


yet | 
gee 


8 
q 


assy uses: 


7(732) 
INE 


166376 


166350 


166324 
166316 
166306 


COS 





Talalalahalalaled-tyt-b-tab-bbet-bobel tabeh- bab bab babhataha-tabl-tohahololatett-bnb-tal-5-lelalalalalelalalalalalaledel 


TACK. LOCATIONS 


ELIMINATED WIL i iP 1 ites FT ILLE WITH H ZEROS i annnck MUST ALSO 
sceneceakeceteerebectestestenteSSeesSSeneeuseo30000007 07008008 


‘0-SEP-76 10:22 PAGE 44 


BELUP: 


MOV (SP)+,R 
MOV (8p)¢’ cet 
MOV (SP)+’ TOADD 
MOV RY, -(Sp) 

2s: MOV asTOADD, RY 
MOV (R4)+, CHRD 

1S: HOV CM) +, “CRD 
DEC BuacT 
BNE 2s 

3S: 
MOV (SP)+,R4 
MOV ROSVE, (SP) 
RTS RO 


{poe STACK NTO ROS 


ROVE NEXT HORD 0. CHRD FoR STORAGE 


; UP_DATA. 

; Ti ZERO BYTE MOVED. 

; SUB FROM BUBBLE COUNT. 

;IF BUBBLE COUNT NOT ZERO - DO AGAIN. 


EE er NIs ROUTING OUTPUTS THE Eat Se OnEN OMENCE FOUND ON 


THIS ere 


Lee ON 
iTHe BT THE SEQUENCE. 
FORMAT OR STACK Hae or ZeR0g rust Te he 
,aessunshonsasausseanssinessaanrurisnnsshartanee? TTT irititiiite: 


TESC: 


MOV (SP) ROSVE 
MOV R4, BUBC 
MOVE = #SOM, AVXBUF 
1S: MOV #-1,85 
MOV (R65+,R4 
yp fs 
es: rete BY 
arf 8 TROY, aVXCSR 
BEQ -6 
RY, IVXBUF 
om 
»RS 
BEQ 
3: Bir STROY, VXCSR 
BEd 6 
YOR 
MOV BUBCT, RY 
HOV VE,-(SP) 


Tts-4 } agi INTO ROSVE 


; SEND A START OF MESSAGE. 
“ALL ONES THO CHECK LOCATION. 
2 


; babrcn TERMINATOR FOUND-EXIT. 
; CHECK OR A ZERO. 

3 IF NOT XMIT IT. 

wer rn a READY BIT 


prone otek COMPARE. HE_HAVE CHECKED BOTH 
$60 MT, ano BOTHER BYTE 
Fay ReAOY SET 


sRESTORE RY 
;;PUSH ROSVE ON STACK 


eaten oT PT ye a ennai 
ROTA ta Bean” THE CONSOLE. 
sEXITS WITH CHARAC R ON THe STACK. 


SEQ COSS 
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ee 
Bos « 


2438 


Gan to b= Bs B92 G0 Ba ho 


Sean 


-8 
- 
3g 


cee 


Beas 
YERY 


be fe b= be 8 bt b= Fs f= f= b= = ho f= fe bb = = 6 he 


SERED TR EREEN ST Rea ooo oeRe RES 
is 


3 
$2 
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MACY11 
PASS ROU 


000200 165466 


1psnee 


O02ee0 


160 


eel 


ng 


002200 


165376 


ose * 


1 


euseenaneceneceseuacenseboaoePecesesenscnnensenncenscensceseens 


CONRD: 


(SP)+, ROSVE ;;POP STACK INTO ROSVE 


MOV 
20-SEP-76 10:22 PAGE 45 


BIT 
BEO 
MOVB 
SIC 
MOV 
RTS 


BRECDN, ISTKS $100 FOR DONE BIT 
O$TkB -(R6) : CHARACTER TO STACK 
tre) :STRIP ANY PARITY BIT. 
ROSVE, ~(SP) : PUSH ROSVE ON STACK 


“mn imitate 
specs f S ere 70 EXECUTED FROM THOSE ENTERED IN 


TEST 377 WAS REQUESTED THE TESTS WILL 


dt MA, LOT EAE DT? 


MONIT: ISTB ODE ;TEST MODE SHITCH 
cH F TLONT, ALHCNT cores FATAL XMITS WITH ALLOWED. 
a ee wo neem 
' Mia SETA apt SET UP wD BE Meta? tes TEST. Maes 
100$: RTS RO 
etl eg Pop Cee oe RETURN AND VECTOR 
C FTLCNT DO NOT INC. FATAL COUNT IN MANUAL MODE. 
108: BI I #RECDN,OSTKS  :CONSOLE ACTIVE? 
MOVB eg Ri sSTORE INPUT BUFFER 
BIC Rl >CLEAR THE PARITY BIT 
eo Re gene Oe. © 
us fo Ese eT TE 
IC ‘ BO REC. I TS BEFORE NEXT UNIT SELECT. 
s ne ia OF L SET UP NEXT 61 
‘ ASL & 0.F0 FORM ADDRESS OFFSET 
HOV TaTe0g CRs) senobee- ihitas 
INC Tet TR Re OP RERENT nee 
CLR PSW iPr NOR] NT. PR ORTTY TO ZERO 
CLR -(SP) : PSW,LSI 11 STYLE. 
HOV 8JMPADD, -(SP) 
J IMP JMPADD sEXIT TO NeXT SELECTED TEST 
EE HHH HHH EH HHH HEHEHE SRE ERRERHERRAE HERSEY 


SURE EEEE ESSE aE SEE EEE EEEE EEE EE EEEEEEEEEEEEEEEEEE SS 


, HHEHHAHHHAHHHHHE 


FO ONE ath NES ARE INTERRUPT HANDLERS FOR THE 
TITITIiiLiiLitLiLitiibeatucidikicccc 


feta: oe ayeaur ceo athe weceiven Gan 


BIC’ 


CMPB $200, SR Sores ares WED To AMITTED 
TOFF: _Bfe Fea avvcsn BAe R RE ARE DONE 
20-SEP-76 10:22 46 


270730) 





SEG O0S6 


PASS ROUTINE E05 














DZVTH.P11 END OF 
seh alee 777 000100 166022 pain BIC WROENA,QVRCSR EITHER WAY-EXIT. 
: 1 Botote 000100 166016 UPD4: Bis BTENA, AVXCSR ENABLE xIT INT INT. ow 

Sige bi3728 B3e704 000200 ety #81707,R4 Sora ie PARITY BIT? 
ae te Bpshod eR Ra HYES-BET L Np UP COMPLETE FLAG 
BG BEE er HB sro BP HROBRoon FDA ow, wr sr ar mc 
clas He  ECEIVE INTERRUPT ROUTING AFTER EACH RECrIVE 
ne IGE Gulteh Pome AOD) ME ee SEPT ome. 

rs Gurr POINTER 15 APPROX BOOUS. AVERAGE “i608: 
2497 i TPON RECE aad rah, TeaTKie BIT IS CHECKED IN aT 
Sigg Baton eta stsed FOR Eee Ce ASCEMBLY Ni, MLE SE BIT 
2500 BIT O1 SET MEANS AN ESCP 


iE OMSiCACE US EEE tbe? 1 acne eesoeuc, 


; LOCATIONS STRO AND STRP ARE USED TO STORE 
0 AND E P SEQUENCES DETECTED, BUT NOT UTILIZED IN TEST. 
errr Tet rrerritirreeriteriritett tr ttrrt ttre tit err ri ter rer tee 


Beaeneane 


1 INTRC: 
Bae 01014 MOV R1,-(SP) PUSH R1 ON STACK 
ery five Brat dees Be Seis aBtntin Epp OF STATS 0 on 
Ea alee 0320737 000100 o0e222 err aTxSUM, VSTAT s CHECKSUM CALCULATION REQUESTED? 
eit Glare Bias S is. eau om, ee 
ae tie wee ti a ee ee 
2516 O1 1030 031114 CMP GELFP, AREBUF #50. sAT THE OF BUFFER? 
517 o14010 0 1003 ; cane BNE 125 
Est: Biaaes 110177 i 128: HOVE Ri SOBUFES sve-8 Ope Tre, DATA reer 
an OlMcee Gaara? 000013 014636 BIT peeve secon! sESC OR ESC 0? 
2523 O01 002130 CMPB «RI, ESCN 
cet bie Bite arf Ts gua use 1 
coc 14x Ole7s? 00g! 1463 MOV #1, ESAMB iy Fc Recep Y FLAG.’ 
eee? 14gs4 7 002222 BIS #€5C, VSTAT CEIVED FLAG 
SS i 1S: cH Rl, 8XOFF cs 13 TECEIVED BYTE WAS XOFF 
i 140 100000 02222 BIS BROOFF ,VSTAT ES, SET XOFF IN STATUS REG. 
Ee 141 4201 000021 2s: CMPB sR, SXON ext IF BYTE WAS XON 
14116 i018 0000 ene #RXOFF , VSTAT iNO. CLEAR XOFF IN VSTAT. 
eA Inee HT EES coserh ince mets eet mT HL Sy 
DZVTH. PI END OF PASS INE . 
4 





74 BEQ RSTER NOT SET EXIT 
Dee7r7 900109 165600 BIS STENA,QVXCSR =—-: SET _XMIT ENABLE. 


042737 OF BIC _SXMKIC,VSTAT CLEAR THE XMIT KILLED FLAG 


Per LUNE AEA RRM AM GAS Cea aa ace re ee 





040000 O0eeee 


1012 


| es 
8 8 
Ba 
: 


s 


014630 


os 
BE 
8 & 


= 





17? 


014662 


062737 

350 Guoou 
032737 000002 014636 
Ox2737 


000010 014636 


o000d2e 014636 


000077 
MACY11 27(732) 
END OF PASS ROUTINE 
12701 000117 
061004 

000010 014636 


ssiren O0e0se 


3s: 


315: 


4§: 


S$: 


518: 


6$: 


e 6158: 


7$: 


70S: 


RSTER: 


y 
#kSOM, VSTAT 
RSTER 

R1, #60" 


OM, VSTAT 
8TXSUM, VSTAT 


Sconce VSTAT 
7§ 

#137,R1 
sREVID, , VSTAT 
#200,R1 


RI @RBUFP 


Reoxt 

sete VSTAT 
TEP, #-1 

Ri Oe TITEP 

#2, STTEP 

(SP)+,R1 

#2, ESAMB 

ene. ESAMB 

#120,R1 


#81701, 
RSIER ESAMB 


10S: MPB 
20-SEP-76 10:22" PAGE 4g 


1108: 
115: 
000004 O0eeee 


Seaenes 


#CURPOS, VSTAT 


RSTER F OS « 
R1, #SOM 


1,8 





‘See IF BYTE WAS SOM 


Ye S, SET SOM IN VSTAT. 


it 
;HAS BYTE EON? 


ROY ST EO0 IN TET oe 


;CLEAR CHECKSUM REQUEST BIT. 


sAND_EXIT 
COR, =CARRIAGE RETURN? 


-GO SET END OF LINE FLAG 


s CHAR. = as Rane FEED? 
ORE IT 


eT END” OF LINE INDICATOR 


ih CIRCULAR BUFFER FILLED? 
YES RESET POINTER TO BEGINNING 
CHAR. ? 


RECEIVING GRAPHICS 


NO 
;YES-SUBTRACT 137 FROM RECEIVED CHAR. 


INO. STORE RECEIVED BYTE 


eae OR a UE AS REV. “VIDEO IND. 


ST ORE BYTE 
; INCREMENT POINTER. 


;CHECK FOR STATUS ERROR 
NO, EXIT ROUTINE 


FE ERROR Tame FULL FLae IN VSTAT 


;YES, EXIT ROUTINE 


*NO, ST TUS ERR. AND CHECK 
pm STATUE ERR. POINTER 


Tif STACK INTO Ri 
ASSEMBLING ESC Pp? 


scent BSC A oH, 


Oe A P? 
;NO’ KEEP CHECK 


s YES BET ESC ASSEMBLY FLAG 


sCHAR.IS AN ESC ? ? 


; YES-FAKE AN ESC 0. 
sCHAR = 0? 


= NO 
ies SET ESC 0 ASSEMBLY FLAG 
;BYTE= ME TRSOR POSITION? 


tYES-SET RECEIVED CURSOR POSITION. 








oO 
t— 6b pe 


a8ek 


££ 
oe 


Fidih 
or 


os 
ae 


eases 
: 


e 


bee to 


-_ 
g 
— 


a a 


2 
5 


: 


AAORER (009 
ye 
29898 


8 
3 


Fe 
T=) 
= 
7) 


x 


SRSSGEEE GOEL MREEEASOROR 
Bee Ge 
Bs = 


Qoo0o0000 





MACY11 27(732) 
PASS ROUTINE 


| lh | 


Q00000 &§§OO00000 G000 200000000000 oOo 


ReneS 


SAS Ta ha = aR 39 2e OUR RRREREzoEaP OO ppenORE 


CESAM 
#SLSH,R1 
#TRMID, VSTAT 
CESAM 
CGP, 1 
BCOMGP, VSTAT 
CESAM 
#NCKGP, RI 
SCOMGP, VSTAT 
RSTER 
RL,STRP 


oe »R1 
#REVID, VSTAT 
CESAM 


»R1 
#REVID, VSTAT 
SCPABRT ,R1 
tail Rl 
#PABRT, VSTAT 
CESAM 


R1, STRO 
CESAM 
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GOS 


;STATUS 
;STATUS 


eStore 
TAMMY TMTERRPT ROUTINE, eee ene 
nT Orr 8 ris arin My VStar 






EIU IDE ecu. 
PSCSET TER TERM. IDEN FLAG otf VSTAT 
> GRAPHICS CHAR. SEQUENCE’ 
:YES-SET GRAPHICS DATA FLAG. 
a RESET GRAPHICS SE2.” 


:YES-SET NORMAL CHAR. RECEIVE. 
CLEAR ASSEMBLY FLAG. 


sAND EXIT. 
;STORE ANY UNCHECKED FOR ESC. P 


sBYTESESC 0 -REV. VIDEO- ? 
*YES-SET REVERSE VIDEO MODE IN VSTAT. 


sBYTESESC 0 DISABLE REV. VIDEO MODE? 
*YES-CLEAR REVERSE VIDEO MODE IN VSTAT. 


;COPIER ABORT? 
;YES-SET ABORT FLAG IN VSTAT 
; PRINTER ABORT? 


I YES-SET THE ABORT FLAG. 
3AND EXIT. 
;STORE ESCAPE .0 COMMAND . 


;ADDRESS OF STAT on BUFFER 
s ADDRESS BUFFER 


sREAD BUFFER BOINTER. 
sESCAPE SEQ.ASSEMBLY AREA 


GI te PSL TMTTER. 


te CLEARED AO WILL _NOT OCCUR 


dla Pa ae eat 














eS 


8 
i 
7 


- 


Ss 
l=) 
o 


= 


28 
dy 


Sie 


8 
2 


. 


‘7 


. 


ASSsa Seo sSNSSEBSER 






015142 
015136 
015142 


Oiveig 


Islas 
015136 
MACY11 


OF PASS ROUTINE 


015142 
015144 





sXMIT COUNT coment O5e 


;NO 
:YES-RESET BUFFER POINTER 


;LO0K FOR NON-ZERO BYTE TO TRANSMIT. 
;CHECKSUM REQUESTED? 


; INCREMENT BUFFER POINTER. 
; DECRE! THE TRANSMIT COUNT 
:YES, , REQUEST ERRORS AND EXIT. 


; XMIT? 
a T SET XMDNE UT tL EOM SENT. 


beat. XMIT. INT. NENABLE 


+ EONTATN Lae IN “bop ps 
;CONTAIN 
ATION 


sCONTAINS CURREN 









QUAL _TO 






;HAS 6 IT 

ite XMIT_ANOTHER 
T XMIT K ALeD BIT IN VSTAT 
KILL XMIT ENABLE 


ssorveon TRANSMIT? 


:NO 
YES-ISSUE START OF MESSAGE. 
SAND CLEAR SOM FLAG. 


;XMITTED THE BUFFER? 
;NO-XMIT A NORMAL CHAR. 
YES SEND EOM AND EXIT 












;CHECK FOR CH.= ZERO. IF SO DO NOT XMIT 
OR COUNT BYT E. OR ARE WE 
sXMITTING ZEROS? 
pies aa a NEXT BYTE 
OF BUFFER? 






;YES,LOAD THE BYTE 

‘AND CALCULATE THE NEW CHECKSUM. 
;TRAMSMIT A CHARACTER 

;AT END OF CIRCULAR BUFFER? 


ies RESET IT TO START. 
BY-PASS INCREMENT BUFF. POINTER 






SEQ 0061 





















Si 
a] 
Ley) 
oO 
be 
uw 
be 
<£ 
£ 


1 HHH HHH HEHEHE HEHEHE ae 









TOS «coven wrtH numBer oF xnrTs. 


s SUBROUTINE TO ISSUE RESET TO THE VT61, ENTERS MAINTENANCE MODE 
FORCES LINEAR ADDRESSING 
PR bn iri rie 


— 


STSTNM, TSTNM 


ZERO, -{SP) ; ; PUSH PUSH ZERO ON ON STAC 
RESET, -(SP) 5 ; PUSH ON STACK 
SCO, -(SP) : PUSH ESCO ON STACK 


WITEVE 


Sh fers 


OK 

= be he 

££ 
~ 
N 


ho XIMT I 

G0 LOOK Br XON. 

‘FOUND IT. 

“ADD 1 TO FATAL XMIT COUNT. 
"NO XON ISSUE XON ERROR 


~(SP) ;PUSH ZERO ON STACK 
SP) : PUSH EMAIN ON STACK 


ESCO *(SP) ;;PUSH ESCO ON STACK 
DRECT,-(SP) 


B48 es Fe fs fe bas fs baw Bae tue fe Boe hie be fo fae p= Pee pie 


ees 


oe 


?:PUSH DRECT ON STACK 
::PUSH ESCO ON STACK 


;CLEAR INT. FLAGS AFTER TERMINAL RESET 
CLEAR PRINT HEADER FLAG. 


Pritt iti iititiiciiitiiiitihee 
TINE TO WAIT FOR AN XON. NO XON EXIT IS PC + 
PRR ber tert tre ser aR e ROR TOR orE eT Tara E em 
aed ;SET UP TO LOOK FOR 3 SEC. 
ower , 8XON ;RECEIVED A XON? 


ee 


MOV 
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=| 
=——-OO000 


oo6$3oo 


; YES-EXIT. 
;NO-DELAY 10 M.S. 


AT END OF DELAY? 
*YES-SET UP ERROR EXIT. 


[HHHHEHHHHHHHMHHHHE HEHEHE HEHEHE HEHEHE HHEEEHEEE 
; SUBROUTINE TO ISSUE ESCZ AND LOOK FOR A RESPONSE-EITHER 


‘Rehan Phan THE RIT ENOER 


T 
THE! INDICATES NO 


scensenakahtenalocsseasthestiatenttasdi deneussmmnumensesnes 


+, ROSVI + POS ae INTO ROSV1 

Dee 
SSUE ESZ SEQUENC 

ee 


¥V1,~(SP) t PUSH ot ON STACK 


Ooo 0o000o 
ps fe bbe bas Be pn fe bo ee 
. 


BESS ESSERE EAE TEAS CECEIE SETES LD ESREET EESTES EP SRRSSDRARSSROAAG 


oo 


s 





;LOAD THE TEST Ds IN ERROR PRINT AREA. 


Serie iii EPR eRPRRen er ern: 


=——OO00 


pe pe 


wOcoON 


FP Eee SDRC S UR RTOS 


om 4 


Sree: 
8 
& ER 


oOo0oo000c: [200000 


oe 
fruoru 
Sees 


001126 


0S 


j denannenesoesestesnereneeuentunseuegeenetesueneuserucuazesweune 
TO TWARE VSTAT) 


;RECEIVE FLAGS ONLY. 
TATUS THE ST 


WORD ON 


REGISTER ( 


U 
ENTERED WITH ANTICIPATED 


eRHHHEEE HH eS HERE REEEEE 


CKSFT: 

(SP)+. ROSVE 
MOV R1, SVER1 
MOV Re, SVER2 


MOV (SP)+,R1 
MOV VSTAT, Re 
BIC #003576, Re 
he 

MOV R1, SGDDAT 


MOV vstar, $BDDAT 


;POP — INTO ROSVE 


Save 
SAVE Re 


;:POP STACK INTO RI 
-SET R2 EQUAL TO VSTAT 


;CLEAR NON-ERROR BITS 
;COMPARE ANTICIPATED TO ACTUAL. 
NO UNUSAL BITS EXIT 


;MOVE BAD 


ISSUE ERROR MESSAGE 


STA 


;MOVE GOOD STATUS TO MESSAGE 
TUS TO MESSAGE 


peSROSTINE TO PRINT THE STATUS REGISTER IN THE FOLLOWING 
iW 


; sHEEEEELOSEEEREESERESE EGET ELC OOESEOEAESESEDSESSESSEEREESSSSEES 


(O00 X X) 


;SET Rl EQUAL TO PireT ENTRY 


STATUS BITS ( 
MOV aSTTER.R1 
MOV STTEP, Re 
1S: CMP R1,Re 


BEQ NOER 
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:SET Re EQUAL LAST ENT 
=QUAL 


SARE THEY 


; YES-RESET “POINTERS AND EXIT. 


crpag AND 
it BITS 1 ERROR REGISTERS. 
ERROR MESSAGE 


sRESET STATUS ERROR POINTER. 
PUSH ROSVE ON STACK 


JSR RO, CLREG ;CLEAR ERROR PRINT LOC. 
MOV Teac FEB ADR aD eborESS 
2s NOY ; R , CSR seppat i 
HOVE BS a 
ERROR 2 
fov SY TORE 
NOER: MOV VERI,R1 1 Ri AND 
MOV SVER2. Re :R2. 
MOV #STTER, STTEP 
MOV ROSVE, -(SP) : 
RTS RO tEXIT 


EN ETI DROUTINE TO CLEAR ERROR/DATA OUIPUT LOCATIONS NEEDED 


OU 


TPUT LOCATIONS. 
TIONS. 


OUTINE TO CLEAR ERROR/DATA 
WHEN DISPLAYING BYTES IN WORD LOCA 


NEEDED 


PTT TTT TTT PerErertTeereer eri tTettereerTererttierterte nt Ter tt tt 


1 RENT IBROUTINE 10 TRANSMIT THE BUFFER AND WALT FOR XMIT DON 


CLREG: ae SGOADR 
ctR  $cDAT 
CLR SBDDAT 
RTS RO 


EB Ret 


NESSA 
D WITH A NUNBE 


, SRT Re LY oe I (T 


T DONE 
IF LOCATION 
E. MULTIPLE 


;RECEIVES CAN BE ACCOMPLISHED WITH ONLY ONE ENTRY TO SUB- 


SEQ 0063 


284s 
ey 
e849 
2850 
See0 
28S3 
28s4 
ease 
28S7 
2858 
2859 
See1 
2862 
2863 
2865 
2866 


oon 


8 


BLESRER PRE r i Ui UES ERERERBES RRRiA4 


Be 


; 


RNS AA AAAS GG 


Bao Ps be be bat b> bs P= B= b= pe Bs hs he pe pe pe 


015662 
015666 


MAINDEC T-BOVTHCA 
DZVTH.P1l 


01 
015702 


01571 
01$714 


oo 
a os 


Bee S SHE INPREVURATRONS SERS 


OOOOOOOOOOOOOOO000C'100 


b= Pb be be Bt bt 2 Be pe hs Ph be pe hs bt pe Be 


cE 


Seen 


8 
5 


a 


G 


8 
se 


om 


eer 


8 
8 


ne 


8 
f 


5 


8 
R 


ieee 


002224 
002222 


164126 
002222 
002222 


O0ee2e 


002222 


020000 002222 
MACY11 27(732) 
END OF PASS ROUTINE 


002222 


;ROUTINE) .WOSTOR 


HD Re 
#TENA, AVXCSR 
#61466, VSTAT 


SXHONE, VSTAT 
REOM, VSTAT 


CKSTR 
SRXOFF , VSTAT 


DLAY 
#REOM, VSTAT 


4§: BIT 
20-SEP-76 10:22 PAGE 53 


CKSTR 
RS 


35° 

DLAY 

4§ 

#2,R0 
FTLCNT 
RO, RESPTR 
CKYST 


R1,Re 
CHKITT 
#CURPOS, VSTAT 





TOR ARE THE WORD(CURSOR POS. ) 
SSTORAGE LOCATIONS, RESPECTIVELY.DEFAULT STORAGE IS THE REC. BUFFER. 


5 RRRARARKALLA REE LEA ES ARAL A AEAA AAA LAA EERE REL E ARRAS EERE EEL ERELERE 









;PUSH_RS ON STA 


beer UP FOR A CORO EON TRANSMIT. 


; CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
;LOAD THE STORAGE POINTERS 


;SET INTERRUPT E 


cw SOM, EOM A EPL ESC, REV.VID., PARA. DELIM. , IDENT,CUR. 


DONE? 
YES“ 00K om RECEIVE DONE. 
CEIVED AN EOM? 


iN GO HANDLE DATA 

:NO= IS XOFF SET? 

;NO-STILL TRANSMITTONG. 

; YES- me ed 

aM INGE XON 
XONCREPORT VT61 FAILURE. 


;LOAD CH. RECEIVED FLAG. 
;SET UP RECEIVE DELAY. 
RECEIVE END OF MESSAGE? 


; YES-CHECK DATA bre POINTERS 
RECEIVED ANOTHER CHARACTER? 
: YES oat CH. FLAG AND DELAY 


an kere "00K RED-SET- UP ERROR EXIT 
: TNGRENENT FA AL XMIT COUNT. ; 


REST ALL INTERRUPT POINTERS. 
A IN REC. BUFFER. 
eerie al POSETION? 
pa aHecK TERATION COUNT. 
; STORING A CHAR? 


STORE A RECETVTHNE BYTE 


NO-LOOP SUBROUTINE 
iNet IS XOFF IS UP. 


;;PUSH #60001 ON STACK 


iiPOP. Ta TO POINTERS. 
YF NTO RS 


se We TTERATION um. 


sup STORAGE POL POINTER 


5 96 9 9 9 9 AE EE 
;SUBROUTINE TO XMIT THE BYTE AT TBUFP. 


) AND BYTE 








Pi ia ahs aete ete tt 


Fo) 

3 
0 
=——OO000 


: 


Se OLILUL GE eee taa cece ray 


Bea 


a2 
ta 


A. 
_ 


012746 

niS7He 
0 

1 

402 

005037 

000200 


ates 


OOOOO000000 


bb -* b> p+ b= bb > ph 


& 
2 


Oo0NOO 


Sie BBSeH! ayers XMITL: BIC 


000001 
000001 
020470 


002222 


| UHH HHUA au aa 
NW OTIXRCAT PTET Ate ait 
Bis #TENA, aVXCSR 


MOV AXMONE,~(SP) 5 ; PUSH BXMONE oN STACK 
MOV #1,-(SP) isPUSH 8 


1$: 


BR NORXT 
FTLEXT: CLR VSTAT 
NORXT: RTS RO 


5 UHHH 
5 SUSROUT INE TO {eels A BYTE AT A TIME UNTIL A ZERO 


HHHHEEES HERES Re ene HEHEHE HEHEHE EEE 


CLEAR ANY FLAGS 
SAND EXIT 


177036 LODXMIT: ve la nal ;SEND THE START OF MESSAGE. 
1S: MOVB (R3)+, JTBUFP ;MOVE R BYTE TO XMIT BUFFER 
BEQ LDOUT ;IF A ZERO BYTE-EXIT 


MACY11 ec ese) 20-SEP-76 10:22 PAGE 54 


epeges 
REeHeS 


ce 


2s: ISR RO, XMITL 160 TT aE BYTE 
177012 LDOUT: MOVB 10M aTBUFP *SEND THE END OF MESSAGE. 
JSR RO, XMIT1 
RTS 
j RERELAERELE REALE LAL ELAS ELA RAL A ELAR ELLA RELA LA LALLA ELL AE LEA LELEE 
-RGUTINE TO RESET ALL INTERRUPT POINTERS. 
rriitiiitttititiititittiiiititiitiittiiitititititittiitiritit ey 
RESPTR: BIC #TENA,JVXCSR = s; CLEAR INTERRUPT ENABLES 


163570 
14634 MOV RBBUF , RBUFP ;RESET ph BUF POINTER 


15142 MOV TBBUF’ TBUFP T 
014662 MOV #STTER, STTEP PRESET RECEIVE STATUS ERR POINTER 
CLR XMCNT *CLEAR TRANSH T COUNT 
¢LR ESAMB ; CLEAR ESC ASSEMBLY FLAGS 
016020 MOV #1, RECITT *RESET REC. ITERATION COUNT 
CLR WOSTOR “CLEAR STORAGE POINTERS 
«oo 


eaten oT oT et nt a att 
;SUBROUTINE TO ISSUE CURSOR POSITION ERROR. GOOD 
: UMN MUST BE A WORD ON STACK. ERROR 
POSITION IS EXPECTED TO BE @ RB 
AHHH HE EEE ESE EEE 


016216 CURER: 
bigsse SIRES BTER YI RE Re ST INT BER 
O1bees 162737 O20040 002160 SUB 4 20040, CHRD EXTRACT MOD 4O FROM GOOD POSITION 
ste ita eats 001124 Mate og ScODAT aa MESSAGE WITH GOOD 

016246 113737 002160 001120 MOVB *LINE COLUMN 
Oibess 017737 2160 —_——-— tye SAR ta —L INE COLUMN.— 

16262 1627 002160 UB #20040; CHRD tEXTRACT MOD 40 FROM BAD POSITION. 

016270 113737 002161 O011e6 CHRD+1;$BDDAT  ;LOAD MESSAGE WITH BAD 





iTONG FOR JT SON, FLAGS AND EXIT 
;NORMAL EXIT. 









SEQ 0065 

























2967 016276 113737 002160 001122 MOVB 
ae DISS ent 002220 oat ROSVE, -(SP) 
300 tate neat fee RB “ 
2972 
2973 
gacd 
care 
2978 
2979 016314 123727 016421 OOOO4O CMPOS: CMPB  LNRW+1, #40 
280 016322 001403 BEQ 
1 016324 105337 o16421 DECB = LNRW+1 
2982 016330 000200 RTS 
2983 016332 123727 O16420 OC0O40 1S: CMPB —s LNW, #40 
2984 016340 O0140S BEQ 2s 
MAINDEC-11-DZVTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE SS 
DZVTH.P11 END OF PASS ROUTINE 
2985 016342 105337 016420 DECB = LNRW 
2985 Cl6346 112737 O001S7 0o16421 MOVB  #157,LNRW+1 
2987 016254 2s: RTS RO 


CHRD, seo , ;LINE AND COLUMN. 


f RRAREK AERA RARE E ERE L LAER REALE ELAR EEE LE LE PRE REREE RELL AREER ALL ERE 


[HMB HEEB HHE HEHEHE HEHEHE HEHEHE it 
;SUBROUTINE TO one CUSROR POSIT im Pe A 


I SE (I OW 20, C 
, sannnnelsuossnabeeerestiustthanssnishusteassbsstureasssuabaeses 









TBF ROSVE. ON STACK 


W 20 COLO ;80W 17, COL 157). 


sAT_LEFT EDGE OF ROW? 
‘YES, GO ADJUST COL., ROW. 
NO, DECREMENT COL. AND EXIT 


;AT ROW 0? 
;YES, NO DECREMENT POSSIBLE-EXIT. 





SEQ 0066 


:NO, DECREMENT ROW AND 
“SET COL. TO RIGHT EDGE. 
















ess Pritt 
saa0 ;SUBROUTINE TO INCREMENT CURSOR POSITION IN A LINEAR 

1 NCE (IE. ROW 10, COL 78, ROW 1 OL 79, ROW 11 , COL QO). 
e332 -sesnnnubianesesiusssiassreevkasedecrhiseanasiasstacsbessseenehe 
2994 O16356 123727 016421 000157 CPPOS: CMPB LNRW+1, #157 ;AT RIGHT EDGE OF 
e39S 016364 93901402 BEQ sYES, ADJUST ROW ako A OLUNN. 
Sage tea 0S2 016421 INCB LNRW+1 ; "INCREMENT COL. COUNT 

1 RTS RO ato 

2998 016374 123727 O16420 O00067 15: CMPB LNRW, #67 iat. 
2339 tee one BEQ 2s Aa ANRE RENT POSS BE et. 
3000 O16 10S237 016420 INCB LNRW ND. "IN OW COUN 
3001 O16410 112737 O00040 O164e21 MOVB #40, LNRW+1 SET COL. a LEFT EDGE. 
3002 Ol 000200 es: RTS RO 
3004 016420 000000 TAINS UPDATED CURSOR POSITION. 





LNRW: .WORD O CON 
PPETETTITTTITTTETT TT TTT TTT TTT TT TTT TE TET ET Te tT et Trt Peer et ete" 








3005 
3006 
3007 ;SUBROUTINE TO XMIT, RECEIVE AND COMPARE. DATA ERRORS 
3008 "ARE REPORTED FROM SUBROUTINE. IF THE TRANSM 
3009 *RECEIVE LOOPS ’TIME OUT’, EXIT FROM SUBROUTINE WILL 
3010 ; BE NORHAL EXIT +2. SUBROLT TINE ENTERED WITH (R1)= 
3011 *GOOD DATA BUFFER, (Re)=RECEIVE DATA BUFFER AND 
3012 SO ONPARE COUNT: IF THE VT61 DOES NOT HANG, THE ROUTINE 
3013 WILL WAIT FOR END OF REC. MESSAGE(EOM) 
3015 
apis 5 RRRRRRLEL ERLE REAR REE ELE E EEE LEER EERE E REEL EAR REE ERR ER ELAR LEE 
3018 O1euze * XRCMP: ss Hagel. : 
33 ste 004 CLR RY eres Ra a A RECEIVE COUNTER. 
3021 O16426 012737 001001 oD2224 MOV #1001, 8LKM Pe tate got TRANSMIT. 
20¢8 O1b4 4 77577 bog 2 BIC #77577, VSTAT pia "alt FLAGS BUT S BUT XOFF AND XMKIL. 
16442 100 163264 BIS #TENA, OVXCSR TERR 
3024 O164S0 005037 016746 CLR HDFLG’ CLEAR RROR mM: ay a ¢ 
a0¢6 bibueH 631000 MOV #TCRLB+450, RS sR RROR TORR POINTER 
1 221 1S: CLR Y iSET ip Tine 
3027 O16464 032737 000001 ode222 #XMONE,VSTAT § :XMIT DON 









eincihcisitatsyy 
i ROBRSRSS 


oo 
=H 
a 


aR 


ee el oe a b= PD - poh —F—-he> «> 


apt 
at 


Oz 
9 
=e 


Re 


ooNo 
— 
fh 
~ 
oOo 


RERERREES 


FREROESERRRNOD 


TELE 
Seca 


ea a ee 
oe 


OOOO OOOOO OOO OOO OOOO OOOO0O00000000 


COCO 






001014 
023737 O14630 014634 
103910 

032737 100000 on2222 


poi7bs 
005337 O0e216 
001365 
000432 
005037 O02cié 
020237 014634 
103410 
737 20000 O022ee 


MACY11 27(732) 
END OF PASS ROUTINE 


005337 002216 


caw 031030 





XREC 
RBSUF , RBUFP 
XREC 
#RXOFF, VSTAT 
1$ 
DLAY 
XRERR 
DLAY 
Re, RBUFP 
#REOM, VSTAT 


BIT 
20-SEP-76 10:22 FAGE 56 


XREXT 

DLAY 

YPERR 

1$ 

RY 

(RL)+, (R2)+ 

Re, #TCRLB+S00 

-(R1), (RS)+ 

= (Re) (RS)+ 
(RS)+ 

fRlys; (R2)+ 

R3 

XREXT 

XREC 

#2, RO 

FTLCNT 

RO, RESPTR 

XROUT 

sREON = (SP) 

RO’ WTBGND 

XROUT 

a TCR. B+HSO, RS 

#TCRLB+4S0, RS 

XROUT 

KOFLG 

1g 

1 

RR O04 SeopaT 

( Re)+, $BDDAT 

(85) +’ §GDADR 

#4,RI 

is’ 

ae0001, "(SP) 


copies a 


NOS , :YES-GO RECEIVE 


rR TO CHECK 
sADD 1 TO RECEIVE COUN 
sC RE CHARACTERS 
pyone 


; COMP RE ANOTHER 


;;PUSH #REOM ON STACK 
;;PUSH #4 ON STACK 


ik 
; TEST 


iDEC MENT ERR 


site Sloat 


___ ; INHIBIT PRINT FLAG. 


RECEIVE OPERATION BEGUN? 
s¥ES=60 RECEI VE 


OFF SET? 
;NO-KEEF LOOKING FOR XMIT DONE? 
;YES RUN DELAY AND LOOK 
;FOR XON_OR RECET VED _CH. 
TRANSMIT TIMEOUT-SET UP ERROR EXIT 


;SET UP TIME OUT DELAY 
INSURE COMPARE POINTER 
sLESS THAN RECEIVE POINTER 
;RECEIVE EOM? 






SEQ 0067 


; YES-SET fn TO_EXIT 
; RUN TIMEOUT DELA 






; EQUAL < COMPARE AGAIN 

PEL REY 5 STok 50 ERRORS? 
YES-B and AGE 
SSTORE GOO 






;LOAD RECEIVE COUN 

RESET POINTERS BND 

CHECK COMPARE COUN 

sALL eam ed A 

;9ET UP ae EXIT 
INCREMENT FATAL XMIT COUNT. 
sRESET INTERRUPT POINTERS. 


;NO EOM-ISSUE ERROR AND EXIT. 
; NOW EXTRACT oy Nemaitied ANY. 


;NO=CHECK Sra AND EXIT 
-DATA ERROR HEADER PRINTED? 
Yes. ass HEADER NT 
iPRIN DA ER ROR HEADER 
*SET HEADER PRINT FLAG 
ERROR WAS LEGTIMATE. LOAD 
;ERROR MESSAGE AND ISSUE 


LOAD RECEIVE COUNT 
ISSUE DATA COMPARE ERROR 


OR COUNT 
PRINT ANOTHER IF NOT AT ZERO 
;SEE IS XOFF {5 UP. 


PUSH #60001 ON STACK 
t AHECK FOR VeTAT ZSTATUS ERR. 






TS 


Suita 


ea Ze 
COCODOQDOOOD0D0D000000 fe 


SORE cone INeRedy 


0-2 8 + Bb -2 & ~* 9-2 0-2 & 2 2 O—— & < O <= 0 Hh  H - PB 
P= 0-2 2 B— b= PO Paw Paw Hoh oP 8 oh =H +0 HH te 


0-2 &-2 6 -« B-2 2&2 & 6 = po Bo 


Ooo0oonHo 
=e 


HeSBRVRRZOVLY 


> 2 2 b= &-< h-2 Bb + P= + 2 0-2 Oe 


Su-SLBVRRLS 


ee ee ek ee ko ood 


SERE 


ad Cad Cad Cad Cad Cad Cad Cad CAD Cad DCAD Cad Cad) Cd Cd CDC) Cad CaP CD CD Cd GG) GG) C0) GG I GI) GI GI GI GI II GI I GIGIGIGIO) 


's 
ae 
| 


I“AVINERO OF PASS Raut 





O6 


PREP ERESRSS EERESESEREESESERSERERES FEESERSERELSSESESEESES SESE S 
ny ae TO CREATE A 'RULER’ IN LOCATIONS 200 


REREEESRESEEEESPESERSERERELELAS EAE EE EAEASES LEDERER ESES ESSE SESSE 
20-SEP-76 10:22 PAGE S7 


CRRUL: MOV sTCRL+200,R sLOAD STARTING ADDRESS 
MOV #130461 *LORD INITIAL ASCII CODES. 
1S: MOVB (R1)$ :STORE A RULER BYTE IN XMIT BUF. 
ct eTCRLB+320,R1 Ru COMPLETE? 
TS "AND EXIT. 
2s: INCB OR j INCREMENT ASCII BYTE 
CMPBOsé8272, R2 “END OF RE VIDEO? 
BNE 3$ :NO-SEE OF NORMAL. 
HOV #030660, Re :SET UP TO ISSUE REVERSE OC. 
3S: CMP 332,R2 END OF NORMAL VIDEO? 
BNE 1S =NOT AT END OF A VIDEO STRING. 
NOV #130460, R2 3YES-SET UP TO ISSUE NORMAL 0. 
cs: MOVB Re, (RL)+ 300 IT 
INCE RS sSET vig NEXT ASCII CODE 
BK Pr * BEGIN ext ORIN 


1 UHEHHHEHHHHHHHEHHHEHHHHHHEHHHHHEHIHHHHEHHEEHHEEEHEHEHEE EH 
; INE Te DeLay 40 M.S. TIME THE NUMBER INLOCATION 
: INES 8 OF LOOPS 


ty TYPE 
: QUIRED * DELAY 10 M.S. FOR one TERATION. LOCATION 
‘PMULT IS PRE-LOADED WITH: 11/45 = 4, 11/40 =e 
°@ND 11/10 <1. 
[HHH HHHHHEHHHHHE HEHE HEHHEHHEHEHEHHHHEHHHEBHEHHHEEEE 
DELAY: 
R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re’ -(SP) PUSH Re ON STACK 
1$: MOV PrULT Re LOAD PROCESSOR MULTIPLIER 
2s: #1400: ,R1 "LOAD 10.4.5. DELAY 
DEC Rl, *RUN BASIC DELAY 
2 Re RUN MULTIPLIER DELAY 
DEC BEOUNT RUN ITERATION COUNT 
MOV (SP)+,R2 :;POP STACK INTO Re 
MOV (SP)+,R1 :POP STACK INTO RI 
RTS 
PMULT: p PROCE MULTIPLIER 
DCOUNT: ITERATION COUNT 


gab ae A a a a a a aE EE EER REE ER EEE EE 
Tor geet AER a 
3RS IS" uri Lee he A oR GISTER. , 


ge a A A a a ga a a a a a a a a a a awa aa ER 



















SEG 0068 


32 
ob 
VO 8 


> 20-0 = 0-- > <6 Bp - 9 — pp - pe 


—BId ad ZIn SSE CFRIGR SSSR R LY 


o53 


- 
~ 


ved 


SRT INNS 
SRE 


5 


8 
oe 
a) 
PS 


OOOOQOOOO00000000 


Ce So ee ek ee ee ed 


ee eA AAT ALTATATATATATR IOLA ALATATATAL AL) 


Pa 2 bs = = b= 6s 0 = = + 8 = b= > = 0-2-2 2 = b= 9-2 & = HH <P Ps HH > + Hom - d= - D9 =H oH Oo 


BIRRKLIGHLSSSIRRIBH 


RUNS 


nn nn re ee 


27(732) 
TINE 


es 


oisi 


162460 


11 27(732) 


I 


- 





BUDINC: MOV 
BLOINA: MOVB 


20-SEP-76 10:22 PAGE S58 


; SSLELESAE SELLA SESSLLEL AELLAASLEL ERASE LLE SELLA ESELA ELAS LLAE ELS 


; SUBROUTINE TO FILL THE SCREEN WITH INCREMENTING DATA 
titi tiiitititiitiiitititittiiiiititiiitiriitiiitiiiitiiit tires! 


;CLEAR INTERRUPT FLAGS. 
FILL XMIT aarer WITH INCRE- 
;SET UP TO XMIT 1920 BYTES 


DATSC: BIC 


es 


JSR 
BIS 


18: BIT 
BEQ 


10S: 


= 


5s LEHFELESLELESLESLELLLLALELE LL LLLELELLLLLA TELE LE LLLLSLLLLLERE EES 


;SUBROUTINE TO RESET VT61 AND DISPLAY MESSAGE 
;POINTED TO BY Re. 


5 SAELELESEE ELLE LALLA LELAL ELLE LEELA LEREL ESE LLELLERE REL ELELELES 


;RESET THE UNIT AND WA ON. 
; EXCEPT XOFF AND XMKIL. 


peta tant 
ao eee 
;DISABLE RECTANGULAR 
; INCREMENT TRANSMIT COUN 
;DISPLAY MESSAGE 


; TERMINATE WITH END OF MESSAGE. 
ae IT AND WAIT FOR 


DSMES: HA 
MOV 


a3: 


MOVB 
« ff 


RTS 


aazeeas 


5 3 A 2 A 2 GH 
TO C T A BINARY 
. RESULT IS STORED IN LOCAT 


sarah 


CSEEESLEE KEELER LE LLEL LEHR EKAEKASZSKERARESSHEREKERELLERREEPELERBRR 
. ;;PUSH RS ON STACK 


BINOCT 


MOV __RS,-(SP) 
20-SEP-76 10:22 bace 53 


CO6b sLORD RS MITH INITIAL CH, 
‘DECREMENT’ BYTE COUNT 


NOT DONE-UPDATE PATTERN 






sYES-RESET IT. 
sNO-ISSUE CURRENT PATTERN. 





URAToR2 Sue GROTON MOH VONNoR Sees oe os 


YQOOO000000000 


== == O=2 f= Oe PB He 


28 


nia 


Skee 


case 


§ 
g 


P— pee fe Go pe 


ace 


AF 


poe ibe 
000060 


000040 


177770 


000200 
162332 





MOV 82,RS ;LOAD ITERATION COUNT 
gs s;BYPASSS SHIFTS FOR 1ST CONVERSION 


$: A 
. ACR A sSHIFT A CHAR INTO POSITION 


RI 
oozige “*? = Btce 0370, SVERI as) ee ROH ESSENTIAL BITS 


RS) 


~OSREE 
a3 
au 
a 


ae 
| ema AT ae ee rena get ge egg a 
; SUBROUTINE TO ery OCTAL CHAR. YO Brees REG 


1 AND REG Re TS BINARY 
sccuceudenasacsuusessenseneseetsanaussestonseeenbEreieestssie8 


;LOAD A SPACE 
;;POP STACK INTO RS 


¢ BSSSRE 


OCTBIN: BIC 8177770,R1 sExTRACT OCTAL aie 
TST Re FIRST CONVERSION 
BEQ NOSHF T {YES = DO _NOT SHIF 
ASL Re NO - SHIFT PREV Gus CHAR. 
ASL Re 
ASL Re 

NOSHFT: ADD R1,Re ;ADD CURRENT CHAR. 
RTS RO 


; LHHFLELELELLELEL LES LLLLLE LLL ELLE SESLSLALLLLELELALEEEEELEL LE LES 


;ROUTINE TO WAIT FOR C/R FROM VT6! UNDER TEST 
Pritt tiiiittititiititiiiittiiititiiititirtt titi tt teri tt tt ty 


162336 GTCR: BIT catia ;WAIT FOR REVEIVE DONE 


001750 CMPB = @VRBUF,, CARRT ;CHAR = CARRIAGE RETURN? 
ae TCR ;NO-KEEP LOOKING 
TS Os ; YES-EXIT 





e 


22 
£ 
Mefmsit 
anaes 


P62 2 b+ as Ps Bo Bs Be Pt bs bo 
$a B= pmo Ges pe 


H-—OOO00000000 


a 
g 


Sear 


eases 


Bt bb bs oe pn ho Fs hme 


Lae enna 


7514 
7515 
3281 
se8e 
3283 
3285 
3286 
3287 
3288 on 
250 Tete? 
3291 001415 


i 


Oo o0oO OOOOO 
—e 
Bg 


i BOND hae en oe 


2 228 Sea 


SR ReE Ses 


BB 
RaRaRaE 


ae es 
re 
oo 


2 2 0 b= 


tirauit 





000067 


017514 


MACY11 27(732) 
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ge 
if 


8 g 
a 2 


77 


000077 017514 
017514 


boadet 


NOCALC: 
oh A, NCCT TNT 





06 


Nee ee bd debdcheheheh-hebeh-bch-heb-ieb-dobsdheheb-bebbehsdalelohshoh-b-iekeh-beb-foieh-leh-halehelalalalel 


sSUBROUTINE TO GET A CHARACTER (NUMERIC) FROM THE 
;CONSOLE. IF OTHER THAN A NUMERIC IS TYPED A 


BE EC 
PTtiititititiiiittiiititiieieiee lire ss D tte te 


GTNUM: JSR CONRD sGET_A 
MOV (SP)+. Ri i BO sfack K INTO Ri 

CMPB)OtséatS4, RIL *CHAR, =COMMA? 
SE 15 “YE =60 PRINT 
C T,Ri °C = RNA IAG RETURN? 
BEQ 1$ 
CMPB 4 séRk1, #60 
BLO QusT sIF CHAR. IS LESS THAN 60 
CMPB sé, 867 OR MORE THAN N 67, TYPE 
SHI QUST A QUESTION MARK 

iS: MOVB R1, TYPNUM 

“SEP-76 10:22 PAGE 60 

T TYPNUM 
C {NFED, RI 
BEQ Beep 
CMPB ss CARAT, RI IF CHAR. - C/R SET UP TO ISSUE 
BNE GTEXT *LINE FEED BEFORE EXITING. 
me i$ = 

GTEXT: RTS RO GOOD CHAR., EXIT 

QUST: MOVB 877, TYPNUM 
TYPE TYPNUM sTYPE QUESTION MARK AND 
BR &TNUM *KEEP LOOKING. 

TYPNUM: .BYTE 0 
‘BYTE OO 


seunne QUBBOUTING TO CALCULATE. CH 


ae te I Oe ochre 


sehERR UY UPPER BYTE OF RS 


CALCK: am 


Re KON KON? 
EQ, NOCALC :YES_00, NOT NOT CALCULATE CHECKSUM 
Q ROCACe YES DO Ror * CALCULATE CHECKSUM 


T INITIALLLY CLEAR 
TSTB Rd EET UP fo, fork on P rite RY 
SEC SRY WAS NEG. SO ROTATE A ONE 
1S: ROL RY INTO LOW ORDER BIT. 
BIC Re’ ;NOT A AND B 
Ble RY, Re pe B AND A 
HOY fe, NEW CHECKSUM 





CHECKSUM ON THE LOWER 






RRRRAKLRRELLLE 


7$7e es 010000 O0e222 CKABRT: BIT 
pree’ A ef (se) 20-SEP-76 10:22 PAGE 61 


Z 
Neato 


& 


UO 


bo 9 
p= pe 


Be 


ae eee 


Sieeeeenanetee REE 
aie: Wesgaants ase 


Bees Pea eel iain Piaarieic ep isits 


5 


:. 
o 


Pt bn pn fh hh he 


JSROINRAY ADA 


— 


ae aa aude dob t ut 


e 


OUTINE TO LOAD XMIT BUFFER FROM RO THRU 
, HHEDunehSeTESESHOSEESESOSSSEEEEAOSSOESESSSSSSEASEESESEEEEEEEERE 


LOBUF: MOVB 


(RO)+, (R1)+ 


;LOAD A BYTE 
; UNTIL ZERO BYTE FOUND. 


R 
peeeeseal bereeet aa reeerreeennasteneereessasereeneeessaieneeee 


; SUBROUTINE TO C THE VT61 FOR A PERIPHERAL ABORT. 
itttittittiittitiiiitiittiiiiiiiiitititiiiiititiititeiiitirery 


MOV oy SGDDAT 
SUB 


#PABRT, VSTAT 


;ABORT FLAG RECEIVED? 
NO-EXIT 


001124 * SGDDAT sPOINT ERR PC TO MAIN ROUTINE. 
001126 MOV vstar, S8DDAT 
ERROR s ISSUE PERIPHERAL ABORT ERROR 
MOV TBBUF .R1 
JSR RO, LDSUF OAD THE XMIT BUFFER WITH: 
137 -BYTE .€5C,.0,.IABT,.ESC, .0, .RABT 
145 BYTE ‘A ee 0 
015144 MOV #9. , XMCNT ;SET UP TO XMIT 9 BYTES. 
JSR RO, XMREC >XMIT AND RECEIVE. 
000170 CMP8 = STRO, #NABRT ;ABORT FLAG CLEARED? 
BEQ sYES-EXTT 
MOV , SGDDAT T UP AND ISSUE A CANT 
001124 SUB 84° SGDDAT *CLEAR ABORT FLAG ERROR ME 
001126 MOV VSTAT, SBDDAT 
RROR 
es: TS 
HHAEEEEE SUBROUTINE. T0 COMPARE RECEIVED KEYBORRD POSITION ITH 
PUBrCtED KEYBOARD POS rion VER KExoOre ARE REPORTED 
ths BOSITI ERRORS OND NOT DATA COMPARE ERRORS. 
Titrititiiittititiiiiitiititiitiitiittiitititiiitii tite Lets 
CKKBD: CLRB $ dABUFP sCLEAR RECEIVE BYTE 
CLR CHRD s CLEAR INPUT STORAGE. 
KBOLP: TSTB § @ABUFP WAIT FOR A INPUT. 
BEQ 4 
002160 MOVB @ABUFP ,CHRD ;STORE IT AND 
a a ME te Wee 
: BEQ GDSTRK ' : SoINTERS” 
INC BUBCT “1 T ERROR COUNT. 
000012 CMP BUBCT, #10 COUNT = 
BHIS cNTE i VESTEXIT™ SIGROUTINE. 
MOV RI 
SUB DTTBL(RS),R1 © ;EXTRACT KEY POSITION FROM ROW LOC 
INC eV ey OGICAL POS 10 ACTUAL. 
JSR INOCT ION IN UCTAL. 
002162 nove : SVER1 OCTAL BYTES. 
000060 c VERI41, #60 POST Ton Le LESS THAN 8? 
Shee BEQ LOPOS *YES-GO L 









SO NRRDORON SE Sains ae SSR UR ADEN ORES MAIER ERSE SP RORREB ISS 


MAINDEC-11-DZVTH-A 
DZVTH.P1 





1237e7 O02lbe 
ae 
a 
162737 000370 
113737 O0el6be 
Ase 32 002163 
4 Ole 027363 
ae’ Ad 
1 END OF PASS 
020070 ate 016076 
Be He ove 
Bsnipe 012703 O0elbe 
Bik tse tee 
116 016076 
Oe0lee 113701 002160 
O20ie6 OGOY037 017ebb 
O20i3e Ol 162 
020136 16076 
Oe01 Me 012703 tts 4 
eis bez © 
Denise 108734 
rat 
pehies Gbree2 
Gebibe o00200 


BOROW: SUB 


LDPOS: MOVB 






#2, SVER1 


#370, SVERI 
SvER! KYSTRK+1 
SVER14$1 ,KYSTRK 


DMPOCT: MOV #OKBERR’ 
20-SEP-76 10:22 PAGE 62 


GDSTRK: iN 
BNE 


CNTF: RTS 


»LDXMIT 


RO 

(RY) = *R 

R * BINOCT 

#SVERI {R3 

RO oe *LOXMIT 

Hy D,L BRAT 

CHRD Ri 

RO * BINOCT 

#SVER1 
*LOXMIT 

= *LOXMIT 

RBOLP ‘ 

RY 

(R4) 

K 

RO 


- SVR, w2G06 . ;POSITION GREATER THAN @ AND LESS THANL2” 
OROM IVES-SET UP 10 BORROW. 


;NO-JUST SuBT TRACT 2. 


;SUBTRACT AND BORROW. 
sLOAD THE CONVERTED DECIMAL #. 


; ISSUE BODY OF KEYBOARD ERROR. 


;CONVERT AND ISSUE GOOD CHAR. 
; INSERT & SPACES IN MESSAGE. 


;CONVERT AND ISSUE RECEIVED CHAR. 


+ 8k FoR sane KEY’ AGAIN. 

s INCREMENT KEYBOARD ROM COUNTER 
SAAC FOR NEXT INPUT 
*YES-EXIT. 


| HHHHHEHHHHHHHHHHHHHGHHHEHHHHHHHHHHHHHEHHHE HAHEI 
s SUGROMT TNE TO LOOP DATA THROUGH HOST 


sFUNCTIONS 


ARE ALLOWED, BUT 


COMPUTER. ALL 
BLOCK _TRANSMITS WHICH 


EXCEED 552 BYTES WILL RESULT IN THE TERMINATION 
OF THE OPERATION AFTER SSe RECEIVED BYTES. 


5 RERERAELALARALALLELE RELL RLEA EERE ELE SALA EARL EREEELELEL ALLEL ELE 


IER eno ;SET UP eer NULLS. 
eT . REBUF ;RESET BUFFER POINTERS 


LOOP: 


LOOPT: 
LOOPTA: 


LOOPR: 


LPSTR: 


SOS arinsS SOT Soe eneSeS 





877577, VSTAT 
8XMONE , VSTAT 


YES LOAD IT iN THE BUFFER 
NCREMENT 


;RELOAD ALL_INTERRUPT POINTERS 


CLEAR ALL FLAGS BUT XOFF AND XMKIL. 


;SET_UP IVE FLAG 
SXHIT TE? 


YES, RESET C. BUFFER POINTER 


ivese0 CHECK TT 


ance VED A DISPLAY CHAR? 





SEQ 0073 









NAINDEC-11 
OZVTH.P1 





pb tet 


ttt 
eure 


cee 


020470 


3 
2 


ERERFRERE Ue ac satan anu pinules es $ai34 


REGRER 


ee 
ib a 


3 
g 


END OF 
1 
16 


101003 


JUUe 


g Bes Bs 


a2 


fe 


8 
¢ 


3430 020336 005237 014634 
7 015144 000764 
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014634 


015144 
015144 


000100 
020414 


020556 


020554 
002216 
020SS4 


VDLAY: 0 
MACYI1 27(732) 20-SEP-76 10:22 PAGE 6H 
PASS ROUTINE 


161330 


002222 


BUMPCT: CMP 


20-SEP-76 10:22 PAGE 63 


BLO 
1S: DEC 


BR 
FRCECT: INC 


XMWT: 


Hee SUBROUTINE TO CHECK FOR END OF Teel COMMAND. THE CONTRO 


; SUBROU 0 CHECK 

3C KEY EXITS ALL ies}s EXCEPT THE BLOCK MODE TEST 
WHICH IS EXITED ON A @ KEY 

JEG 


EXTST: CMPB  @ABUFP, #3 sLOOK FOR CONTROL C. 
BNE NOROUT 
ABSXT: MOV #RCRLB+477, REBUF sRESET THE BUFFERS 
MOV STCRLB,TBBUFti«s 
JSR RO RESPIR RESET ALL POINTERS 
MOV #DEXT, Re 
JSR RO, OSMES s ISSUE EXIT MESSAGE 
CLR XMZER ?CLEAR THE ZERO TRANSMIT FLAG. 
ADD #2,RO SET UP TEST EXIT. 
NOROUT: RTS RO *EXIT SUBROUTINE. 
XMZER: .WORD 0 
peer TOT OA eee 
INE TO LOOK FOR VSTAT BIT ON THE STACK 


ROUT 

Y FACTOR i FIRST WORD ON THE STACK AND is te BIT 
THE SECOND. MIN. DELAY IS 4 U.S FOR A MOS 11/45. 

sennenend eae Seen DELAY TS HUES FOR, 8 BOs L/w 


WTBGND: 


MOV 
1S: CLR 
es: BIT 


FNDBT: 
TIMEXT: 


RTS 
ge 0 


EQSVE, =(SP) ;;PUSH ROSVE ON STACK 





reure HOG 
KNEAT S00. {BUFFER ABOUT FILLED? 
: 7 






SEG 0074 







FRCECT ;NO 

REUEP YES-RESET THE RECEIVE POINTER 
XMCNT s INCREMENT THE XMIT COUNT 
XNCNT, 2 iF IRST CHAR TO XMIT? 
BTENA,JVXCSR = YES-SET THE XMIT ENABLE 

RO, EXtST *LOOK FOR END OF TEST COMMAND. 
LOOPT : F 

RO AND EXIT 





FOR END OF TEST COMMAND. THE CONTROL 


(SP)+,ROSVE 3;POP STACK INTO ROSVE 
(SP)+, VDLAY 33POP STACK INTO VOLAY 
(SP)+, VBIT 33;POP STACK INTO VBIT 





Y 
IT, VSTAT sSENSED THE CONDITION? 

FNDBT > YES-EXIT. 
DLAY *NO-RUN DELAY 
VDLAY sDELAY F FACTOR EXPIRED? 

DE TAYE EXPIRED-ISSUE HUNG NIT 
Front : REREMENT FATAL XMIT COUNT. 
(RO)+ ;SET UP FOR NORMAL EXIT 


SE ee UBROUTINE TO LOOK FOR XOFF BEFORE EXITING A RECEIVE RO 


SUBROUTINE TO LOOK FOR XOFF BEFORE EXITING A RECEIVE ROUTINE. 
BR eer Re tem Per Abr RTE Mme TEM Bb 


CKOFF : DLA 
Bsoees By373 708008 O022e2 18: BIT SRXOFF,, VSTAT ;1S saad SET? 
1 BEG $ sNO-EXIT 
002216 AY ;RUN DELAY. 
1371 BNE 1$ 
900200 es: RO 

[A HHEEHHEHHEEHHEHHEH EGE EEE HHBHHEH EHH 
-SBTTL SCOPE HANDLER ROUTINE 


ARO LORD THE fest” URGE StS) Tne batt Re6. (DISPLAYC?:0> 


ERROR FLAG ( 0 DISPLAY 
ee ERITCH NGPrioNs PROV OED 8 BY Sule TROUTINE ARE 


LOOP S 
j BULLI INAIBIT ITERATIONS 
j #SOB=1 tOOP P ON FEC ON SWR<7:0) 


SCOPE ;;SCOPE=IOT 


SR RO MONIT 
160320 1S: BIT tT14, ISWR ;;LOOP ON PRESENT TEST? 
BNE $0 “YES IF SW14=1 
-#8e8NSTART OF CODE FOR THE XOR tesTeRseats 
XTSTR: BR 63 ON THT “KOR” TESTER CHANGE 


RUNNING 
ove fe NSTRUCTION TO _A_“NOP” (NOP=240) 
CONTENTS OF THE ERROR VECTOR 


RA ne eer 
1 Glee Te Yaa 


S$: Rhp 
MOV 
BR ; §LOOB ON THE PRESENT TEST 
6S: ;#88eKEND OF FOR THE xor't geese 
2 BIT , aSWR AP a te SPEC. TEST? 
THE RIGHT TEST? SWR<7:0> 
IF YES 
ree OCCURRED? 
ens FOR THIS TEST OCCURRED? 
eye 
ss ON ERROR? 
;;BR_ IF NO 
3;SET LOOP ADDRESS TO LAST SCOPE 


i 3s ZERO THE ERROR FLAG 
;CLEAR THE NUMBER OF ITERATIONS TO MAKE 


3 
38 
3S 
3S 
3$ 
es 
3 
38 


02 0s bs 02 be be a he he 
OO NOU.£ WHO 


~-wPRan 


STACK RPTER TIME OUT 


=o ar 








g 


IRSA ad ALP 





é 





i 


ERE SO SS RAG ERE Bsa loc oacee 


RRRRRAR NAT oar 


ft Fs bo Fs bt 8 be eb Bee Fe we ho pe 









- 1 


Rue Oe 


REELS Pees 
ae 
es 
FO 
: 


= = 0 — b= 6 = b— 9 0: pp pe 


Fofor foruruforurorone 


BRIFTOS 


ie 
a 
Be bere Gam 
i oe 


ore 
£oO 
[= } 
J 
5 


PIERS PPS ESORB Toe 


& 





" 


3 
g 


b=-2 po 
—p 
= = 
FO 
bs Dao 
bs 
oF 


20-00 

~“ 
gaS8 

Ee 

aot 

36 

> 

— 

Or 


001103 
001102 160044 
160034 


Ue UU 


ast 


ee Ges 


010570 o0004e 


MACY11 27(732) 

ERROR HANDLER ROUTINE 

032777 001000 157732 
ed 001110 
37 001160 
1371 001160 


INHIBIT ITERATIONS 


‘ont UREA OP FFERAT IONS MADE 
iS BL Buhl Tres SPMOHSI i AIRS 


ee ME ede: 
eax Seal ae or NE 
SLPADR CoP) Hioteaiy TURN ADDRESS 


SMXCNT: 5 ;;MAX. NUMBER OF ITERATIONS 
Mritiiiiiitiitiiiitititiitiitiittiiittittiitittiiitiiiiii titi) 


-SBTTL ERROR HANDLER ROUTINE 


;*#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; #SAVE THE ERROR seen NUMBER AND THE ADDRESS OF THE ERROR CALL 


MOVB 
SOVER: MOV 


*#AND GO TO SERRTYP ON ERROR 
*¥THE SWITCH OPTIONS IDED BY THIS ROUTINE ARE: 
#SW1S=1 ERROR 
#5W13=1 pete ERROR TYPEOUTS 
#5W10=1 BELL ON ERROR 
bot LOOP ON ERROR 
+# ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
RROR: 
$: INCB  SERFLG ;SET THE ERROR FLAG 
BEQ 7§ tt DON? T LET THE FLAG GO TO ZERO 
MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #BITI1O, ISWR He ON ERROR? 
BEQ 1S *:NO - SKIP 
TYPE 3 3RING 
1S: INC SERTTL * COUNT NUMBER OF ERRORS 
MOV (SP), SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
abYE 2, SERR : CTTENB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT #81713, OSWR ::SKIP TYPEOUT IF 
BNE 205 $31 TYPEOUTS 
J PC, SERRTYP TO USER ERROR ROUTINE 
ae TYPE  ,SCRLF 
2s: TST aSWR ;;HALT ON ERROR 
3$ ::SKIP IF CONTINUE 
HALT >:HALT ON ERROR! 
CMP #SENDAD, 9842  ;:ACT-11 AUTO-ACCEPT? 
BNE 3$ $s BRANCH IF NO 
9° 


HALT 
20-SEP-76 10:22 PAGE 66 


3S: BIT #81703, , 2SWR 3 ;LOOP_ON ERROR SWITCH SET? 
aby SLPERR, (SP) He Dee TURN FOR LOOPING 
4§: TST SESCAPE Ha FOR AN ESCAPE 


Q NONE 
a Becwe, (SP) RETURN ADDRESS FOR ESCAPE 





RTI ; ; RETURN 
TP iittititittittititttititiiitittitiiitititiititittititite ttt 







SEQ 0077 






KO6 
\SBTTL TYPE ROUTINE 


/eTHe ROUTINE WILL THGERY A AURBER OP NULL ChanecyEnSs FFYER a LYNE FEED. 


FILLER CHARACTER. 


IS: SFLE SANTAING THE SISSELOE GACH, HRRERTERS Meme 


oa a fb tab ob ob 
WOND UCWluH-O 


tSCALL: 
#1) USING @ TRAP INSTRUCTION 
351 2% TYPE rs th ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3623 + TYPE 
36d + —_— 
3626 He) USING A JSR INSTRUCTION 
3627 ii HOV Fe. {$62 ;;PUSH P PROCESSOR STATUS WORD ON THE STACK 
3 + MESADDR sire T “Ap ReSe OF MESSAGE 
3631 021226 105737 001155 $TYPE: TSTB  $TPFLG :31S THERE A TERMINAL? 
aR eeees ft, =«C«S TET WERE IF NO TERMINAL 
e343 is BR 33 ; ;LEAVE 
3635 021240 O10046 1$ MOV RO, -(SP) SAVE RO 
3636 Gel 017600 oo0002 MOV aetsP),RO iiGE ADRESS | OF ascIZ STRING 
1 112046 2s MOVB  (RO)+,-(SP) 0 BE TYPED ONTO STACK 
3638 021250 001005 BNE 4g stBR tes sae: hat ret ‘TOR 
3633 ebe 005726 S (SP)+ ise OR POP it are THE STACK 
40 Oel i 60S: MOV (SP)+,RO 
soul Oe 1256 062716 ooc002 3$ B00 #2, (SP) HADWuST RETURN PC 
cat Geiees 122716 000011 4§ CMPB ss #THT, (SP) + BRANCH IF <HT> 
3644 O21 1431 BEQ 
3645 Oele7e 122716 000200 CMPB onl , (SP) :;BRANCH IF NOT <CRLF> 
zu Gis Oe Ft GShie, Po, sama) caurv 
3649 ars rete Aoi oSe JSR PC, STYPE 3 
3650 O213l2 001167 SCRLF 
3651 021314 go07S4 BR 2 ;;GET_NEXT CHARACTER 
3652 021316 021400 cS: JSR PC, $TYPEC ?:GO TYPE THIS CHARACTER 
3653 Oel3e¢2e 123726 001154 6S: CMPB 0s SFILLC,(SP)+ 3:15 IT TIME FOR FILLER CHARS.? 
3654 621326 001347 BNE 2S 2: IF NO GO GET NEXT CHAR 
3655 021330 013746 001152 MOV SNULL , -(SP) is GET i OF FILLER CHARS. NEEDED 
Mai RDEC-11-D2vTH-A MACY11 27(732) 20-SEP-76 10:22 PAGE 6&7 43 arn : 

DZVTH.P11 TYPE ROUTINE SEQ 0078 
3657 021334 105366 000001 7S: DECB =-.L( SP) :;DOES A NULL NEED TO BE TYPED? 
eae Tet, Feysreee HE) Het Ra ME MAL OF oF sta 
ae, nae e337 nagtet DECB $CHARCNT *:D0 NOT COUNT AS A COUNT 
3661 021352 BR ne 
ses pps sHORIZONTAL TAB PROCESSOR 
see ef 021354 112716 oO0040 83: MOVB = #40 (SP) ;sREPLACE TAB WITH SPACE 
3666 021360 737 021400 95: JSR Pc, $TvP >: TYPE A SPACE 
3667 021364 132737 000007 o21444 BITS 87, SCHARCNT 35 BRANCH IF NOT AT 
3668 0e137¢ 001372 BNE 9s’ TAB STOP 
3669 021374 005726 TST (SP)+ >:POP SPACE OFF STACK 
3670 021376 000723 a BR 2s ::GET NEXT CHARACTER 


1eeeee 
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o~ 
fo 
bo 
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S28 
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Bau Zon 
Furufufufororororurony 
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157542 


0092 
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021444 
000012 
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157534 
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STYPEC: TSTB 
‘ BPL 


1$: 


INCB 
SCHARCNT: . WORD 
STYPEX: RTS 


TCRLF=200 


aSTPS 

$TYPEC 

2(SP). aSTPB 
#15, 2lSP) 

SCHARCNT 

STYPEX 

He 2(SP) 


TYPEX 
(PC)+ 


LO6 ;;WAIT UNTIL PRINTER IS READY 


i Branch TF TO BE TYPED INTO DATA REG. 


;;NOT <CR> 


XIT 
BRANCH IF 
3 <LF> 
:: INC SPACE 
COUNT 


5 RRHRARK RELA AAK EERE LALE LEA REL AER E RELA ERA LER EE RARE LE EAAL LAER ELELEE 


-SETTL ERROR MESSAGE TYPEOUT ROUTINE 
;*THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
: ERROR IS “ERROR 


TO BE REPORTED. THEN OBTAINS, FROM THE 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


SCRLF 
RO, -(SP) 

RO 
J#SITEMB, RO 
1$ 


SERRPC, -(SP) 


R 
#SERRTB, RO 
(RO)+, 28 


BEQ 
20-SEP-76 10:22 PAGE 68 


ERROR MESSAGE TYPEOUT ROUTINE 


2S: 


SCRLF 
Ri, -(SP) 
(RO)+, Ri 
(RO)+,RO0 
(RO)+ 


75 
a(R1)+, -(SP) 


Q(R1)+,-(SP) 


IT 


TABLE” (SERRTB), 


i § CARRIAGE RETURN” & “LINE FEED” 
::PICKUP THE ITEM INDEX 

IF TEM NUMBER Is ZERO, JUST 
ttTYPE T HE ERROR 
5; SAVE HE ape ehr TYPEOUT 

: ERROR 
igre re ASCIIC(ALL DIGITS) 

JUST THE INDEX SO THAT IT WILL 

+3 WORK FOR THE ERROR TABLE 


FORM TABLE POINTER 
SAA SERIO" PSB Poa 


TYPE THE “ERROR ME 
: TERROR MESSAGE” POINTER GOES HERE 


Hecke bate HEADER” POINTER 
Hila ie . WERDER GOES. HERE 
3 °CARR AGE RETURN” & “LINE FEED” 
i sPICKUP © “DATA TABLE” POINTER 

ig a: FORAY Pol POINTER 


F DECI 
tee i ee TYPEOUT 
5460 TYPE=-OC TRL, ‘RCT DIGITS) 


;;SAVE Q(R1)+ FOR TYPEOUT 


SEQ 0079 





MO6 1300 TYPE--DECINAL ASCIT MITH SIGN 





R THER ANOTHER NUMBER? 
735 Oe! 04400 021620 TYPE 113 ine TWoC2) SPACES 
3 at hooves BR 6$ 4M OP 
3737 
3738 O21606 012601 9s: MOV (SP)+,R1 RESTORE RI 
3739 021610 012600 10$: MOV (5P)+’RO “RESTORE RO 
370 Geltle 199909 001167 TYPE gacrLf Hf CBRRIAGE RETURN” & "LINE FEED” 
see 021620 320040 000 118: -ASCIZ i @ *:TWO(2) SPACES 
aie eriitiititi ttt iititittitiitttititittittitititittttti ttt titi te: 
Eta) .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
3748 ECT east T) AURBER TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
3750 j #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
752 ” MoV NUM, ~(SP) ;;NUMBER TO_BE TYPED 
753 # TYPOS 55 GALL FOR TYPEOUT 
3754 i -BYTE N -:N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
3756 ** ; we ;;1=TYPE LEADING ZEROS 
3757 it :Q=SUPPRESS LEADING ZEROS 
3753 $ SET Opt en MERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
3761 :*CALL: 
x MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3763 i TYPON CALL FOR TYPEOUT 
3765 | SSTYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3767 i NOV NUM, ~(SP) ;sNUMBER TOBE TYPED 
MAENBEC=11-D2VTH-A 1 27(732) Sh-sep-76. 10:22 PAGE 69 e 
DZVTH.P11 BINARY 10 SCTAL (ASCII) AND TYPE SEQ 0080 
37693 
3770 021624 017646 gqgon9 eee STYPOS: OV 9(SP), <(SP) s sPICKUP,T ef BF 
3338 OS bse 11se37 Soo bet MOV (3 b+ Soho +1 Hi Pe binge 1 TYPE 
or N2 i646 BR STYPON 
3775 021650 112737 000001 O22047 STYPOC: MOVB #1,SOFILL Ya THE ZERO FILL SWITCH 
3776 O21656 112737 OO0006 22051 MOVB #6, SOMODE+1 *:SET FOR SIX(6) DIGITS 
3777 e166 116737 OO0000S O22046 STYPON: HOVE 45, SOCNT jiE 1 THE ITERATION COUNT 
eae: 021674 ot Oaae OV R4, -(S5P) : SAVE RY 
3780 21676 010546 OV RS,-(SP) :35A 
3781 621700 ii 3704 022051 HOVE SOMODE+1,R4 +: GET THE NUMBER OF DIGITS TO TYPE 
ores 021706 o4 ADD #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
3784 Oel7l2 110437 MOVB R4’ SOMODE - SAVE OR USE 
3785 021716 113704 022047 MOVB  $OFILL, *:GET THE ZERO FILL SWITCH 
Srey ei7ee 00s003 GR koe tICLEAR THE OUTPUT, WORD 
3788 021739 006105 1S: ROL RS i ;ROTATE MSB INTO "C” 
0 ates atte 2s: ROL Re +1600 rietitg DIGIT 
3792 021740 006105 ROL RS 





Secnaeenss 


Blatant 
WONT £WUEK© 


isis 


amet ce 
DZVTH.P1i 


3825 


wisi 


8 
Bs 


Licorresseeseeincseos 






fo 
~ 
rs 
fe 


forufofofororururone 


VISTRSWSE 


BR 
ae 


—-O000000 
P= fe bs hs hee 
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San 


R 
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S 


RERRBTSRB 
<2 
RR 
SS 


Ses 


I RERRRERSS 





NO6 


MOV RS,R3 
2S: ROL R3 GET _LS8_OF THIS, DIGIT 
DECB SOMODE ; TYPE THIS DIGIT? 
Bic #177770,R3 i$GET RID OF JUNK 
BNE 4g OR 
qsI RY js SUPPRESS THIS 0? 
4S: INC RY i DON'T SFBPRESS ANYMORE 0°S 
81S #'0,R3 if MAKE THIS DIGIT ASCII 
S$: BIS #’ RB ; MAKE BScil IF NOT ALREADY 
MOVB  R3,8S SAVE FOR TYPIN 
TYPE 8¢ 33G0 TYPE THIS DIGIT 
7$:  DECB $0CNT ; COUNT 
BGT 2g 33BR IF MORE TO DO 
BLT 6S ‘BR I 
INC RY {INSURE LAST DIGIT ISN’T A BLANK 
BR 2$ *:GO DO THE LAST DIGIT 
6$: MOV (SP)+,R5 RESTORE RS 
MOV (SP)+,R4 ;;RESTO 
MOV (SP)+,R3 > *RESTO 
MOV 2(SP);4(SP) *:SET THE STACK FOR RETURNING 
MOV (SP)+? (SP) 
RTI ; RETURN 
8S: .BYTE 0 {STORAGE FOR ASCII DIGIT 
“BY 0 bt MINATOR FOR TYPE ROUTINE 
SOCNT: _ “BYTE 0 CTAL DIGIT COUNTER 
SOFILL: :BYTE O $3 ‘ZERO FILL SWITCH 
SOMODE: WORD 0 "NUMBER OF DIGITS TO TYPE 


Oe eeESHEET TREE EEESEEEEEEEEEESSE OES SATEESESERTEEEESSSEREEEES 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
20-SEP-76 10:22 PAGE 70 


TO DECIMAL AND TYPE ROUTINE 


;*THIS ROUTINE IS USED TO CHANGE A ig ait BINARY NUMBER TO A S-DIGIT 
; #SIGNED DECIMAL (ASCII) NUMBER yt! YPE IT. erect ON WHETHER THE 
; NUMBER 72 POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
S*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; SREPLACED WITH SPACES. 


te MOV NUM, -(SP) ;PUT_THE BINARY NUMBER ON THE STACK 
+" TYPDS G0 TO THE ROUTINE 
STYPNS: 
MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(5P) PUSH RI ON STACK 
MOV Re,-(SP) ;;PUSH Re ON STACK 
MOV R3,-(5P) PUSH R3 ON STACK 
MOV RS; -(SP) *:PUSH RS ON STACK 
MOV #20200,-(SP)  3;SET BLANK SWITCH AND SIGN 
MOV 20(SP); *:GET THE INPUT NUMBER 
BPL *:BR IF INPUT IS 
NEG *:MAKE THE BI 
MOVE #’-, 1(SP) ;;MAKE THE nacht 
$ CLR $1 ZERO THE CONS ANTS 
MOV #SOBLK,R3 TPUT PO 
MOVB MM , (Ra)+ SET atte IRs ! NARRCTER TO A BLANK 
es: fv SBTBL(ROD.RI THE CONSTANT 
38: SUB Pk : is og DIGIT 
INC R2 +N OREASE T THE BCD DIGIT BY 1 
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wIrnc> 
BASAL 
te veer fF" 
na TE ZX 


EI 
eee ese eres eee: 
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wWwowzM 


ai 


Y & CIGIT 
UTPUT BUFFER 


WBSOr zu 
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REGRRB-BHARALS wiv 
BEUSS ROO ORS 
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gaggzes 
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;;RETURN TO USER 


Pe - eR 


SOBLK: .BLKW 
Nee titi ritt iit rer tier ret ieeirerr rent os 2 | 
~SBTTL POWER DOWN AND UP ROUTINES 


>: 
SM 
= 


339323 
oe 
S SSnzaaz23~ 


“er 


SanaeE BESSSS 


30F WORD 
POP STACK INTO RS 











rir 
now 


Basa 


ONT 3, 


BERS 
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MACY11 27(732) 20-SEP-76 10:22 
CODER 





Hoy (SP), CO7 ..r0e stack int 83 

MOV (SP)+; 3POP STACK I 

i a SS BO 

MOV aSPWRON Qupurvec’ SET uP DOWN VECTOR 

MOPE 0340, SePHRVEC#2 Re BRIO? R FAILURE 
SPWRNG: gerd SPOWER + ee MESSAGE POINTER 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 

2 1H BEFORE THE POWER DOWN WAS COMPLETE 

SSAVRE: 33PU SP HERE 


SPOWER: .ASCIZ <15)<12)>"POWER™ 


- EVEN 
, suseusecteteceuceceveceusesnsensssnsnesuanssessessuseesesseress 
-SBTTL TRAP DECODER 
;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ sie TRU TON 
ss 


SEAN USE IT TO. INDEX HROUGH THE TRAP TABLE F 
;#0F THE DESIRED RS THEN USING THE ADDRESS OBTA 







SE9 0083 
3;#G0 TO THAT ROUTINE. 
STRAP: MOV RO. -(SP) ;;SAVE_RO 
pocod2 MOV 2(SP),RO 3;;GET TRAP ADDRESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO ;;GET RIGHT art OF TRAP 
022460 HOV STRPAOCRO),RO Si INOEX-10 TALE 
RAYS RO : 3360 TO ROUTINE 
-SBTTL TRAP TABLE 
3;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
s#BY THE “TRAP” INSTRUCTION. 
: ROUTINE 
STRPAD: 
a 3 ;CALL=TYPE Tees en} TTY TYPEQUT ROUTINE 
T 3; CALL=TYPOC TRAP4+1(1 1) TYPE OCTAL te A ZEROS) 
STYPOS ;;CALL=TYPOS Lt Tt TYPE OCTAL NUMBER (NO ING ZEROS) 
TYPON ;;CALL=TYPON TRAP+3( 104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPOS ;;CALL=TYPDS TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
OO34SO 003656 TSTADD: TST1,TSTe,TST3 
004204 004420 TST4, TSTS, TST 
00S424 006104 TST7, TST10, TST11 
006472 006720 TST12, TST13, TST14 
007642 010060 TST1S, TST16, TST17 
010624 011130 TST20, TST21, TST22 
TST23, TST24 












DO? 





l STUPM: .ASCII /SET VT61S TO FULL DUPLEX, 7<15><12> 
114 
1 042514 
: ae -ASCIZ /SB00BAUD, REMOTE ,PARITY MATCHED TO INTERFACE/<15>< 12> 
1i7 1 
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ABLE 






af dald el) £9.) 





: 





DUNTST: .ASCIZ <15><12>/ADDRESSES WITH RESPONSIVE VT61S ARE: 7<15><12> 


NOVT: .ASCIZ <15><12>/NO VT61 RESPONDED TO ESCZ SEQ. AUTO RETRY IN 30 SEC./<15><«12> 





SGRCRRSGRSRSEGaado 









OSS 1440 
44 
10S 
116 
041505 
4012 
4013 cone 104% O304%61 DLERR: .ASCIZ <15><1l2>/DL11 FAILED AT ADDRESS/ 
4014 1 a 
apie im 1 
yi, eae os 
He 7101 DMANA: .ASCII /MANUAL TEST SELECTED -7<15><l2> 
440 1 


-ASCIZ /ENTER ADDRESSES OF VT61S TO BE TESTED/<15><t2> 


SSSGRARRAAAE 
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. 1g DMANB: .ASCIZ /ENTER TESTS TO BE RUN/<15><12> 
1S 

















EMI: -ASCIZ /AN ESC SEQ. TO THE VT61 FAILED - OCTAL EGUIY. 15:7<15>< le 
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3 OHI: -ASCIZ /TEST@# ERR PC BYTE 142 BYTE 34+47<«15)>< 12> 
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Dostis 

ees EMe: eASCIZ /RECEIVE STATUS ERROR. 7<15>< 12> 
1 
1 
1 


DHe: -ASCIZ /ADD. STAT. ERR.BITS CHAR./<15><12> 


- 
So 
r= 

~ 

2 


-ASCIZ -SOFTWARE (VSTAT) STATUS ERROR. /7<15><12> 


ars 


Etta Bae 
g 
at 
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1 DH3: -ASCIZ / PASS#, TEST#, EXP.STAT, ACT.STAT/<15>< 12> 








: e 
ei QL 040440 
om 
pioaod EMY: -ASCIZ /GD. DATA DOES NOT MATCH REC. DATA/<15>< 12) 
1 pent 
101 1 


-ASCIZ /TEST# ,REC.CNT.,GD. DATA, REC. DATA/<15><12> 
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/BYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED/<15>< 12> 
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EM10:_ _.ASCIZ /VT61 FAILED SELF TEST FUNCTION/<15>< 12, 
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DHi2: .ASCIZ /PASS#, TEST#, GD.CKSUM, BD.CKSUM/<15><lea> 


DABRT: .ASCIZ /TESTING ABORTED-TOO MANY FATAL XMITS/<15>< 12> 


EM13: .ASCIZ /VT61 RECEIVER CHECKSUM COMPARE ERROR/<15><12> 


/VT61 TRANSMITTER CHECKSUM COMPARE ERROR/<15>< 12> 





EM14: .ASCIZ 
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-ASCIZ /PRINTER IS ATTACHED/<15>< 12> 
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/LAST PERIPHERAL OPERATION ABORTED/<15>< 12> 
-ASCIZ /SOM OR EOM NOT RECEIVED DURING MAINT. MODE TRANSMIT/<15>< 12> 






-ASCIZ /XOFF TO VT61 FAILED TO HALT BLOCK XMIT/<15><1le> 
-ASCIZ /XON TO VT61 FAILED TO RESTART BLOCK XMIT/<15><12> 
~ASCIZ /NO XON RECEIVED WITHIN 3 SEC. AFTER A RESET/<15><12> 
-ASCIZ /COULD NOT CLEAR LAST ABORT FLAG. 7<15><12> 


-ASCIZ 
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SEQ 0089 
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o08s0e2 012 
oy7117 gu20ss .ASCIZ /NON-DISPLAY CHAR.= OCTAL EQUIV/<15><le> 
0 Rae 
i 
020102 000 DTAB: .ASCIZ /TAB / 
051055 000040 DCR: -ASCIZ 1C-R / 
Bet oeoti4 BEE iL -Bakté “BELL / 
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ABLE SEQ 0090 
ON7517 920120 DLOOP: .ASCII /LOOP TEST - LOOP COMMANDS AND DATA THRU/<15><12> 
i? bebi20 
15 047101 
042116 
052101 020101 
tee itch ASCII /HOST BACK TO VT61 UNDER TEST. /<15><12> 
4340 124 020061 
042504 Oe20l22 
4342 042524 O0S2l23 O20056 
4344 Dobeee O47503 052116 O47S22 DCNTZ: .ASCIZ /CONTROL C EXITS TEST./<15><12> 
4345 Oebest 114 020103 o42440 
4346 926236 051524 O0S2040 
4347 026244 051505 027124 05015 
4348 O2beS2 000 
4 OS O44530 020124 DEXT: .ASCIZ /EXIT TEST./ 
ize! 04 OS2i23 o000S6 
Sabeb6 051120 047111 O42S24 DPRNT: .ASCII /PRINTER TEST -/<15)<12> 
RES 0201 goed 0S2123 
4 tees 461 047503 .ASCII 7/132 COLUMNS OF A SLIDING PATTERN WILL BE/ 
4 14 14 047115 020123 
4358 Sebse2 117 051440 
4359 14 043516 
4360 o50040 101 o42524 
4361 71 g 046111 
4363 oa7s03 116 047111 .ASCII /CONTINOUSLY OUTPUTTED TO PRINTER/<15><12> 
4364 Seb64 17 0461 920131 
4365 7 124 Osele° 
4 026400 04, 104 04 
i367 Debs06 : 052116 
4369 Oe? ee OS1040 DCRST: .ASCIZ /CAR. RET. TO START/<15><1l2> 
4 1 047524 
4371 1440 040524 OSe2lee 
i372 C2b442 O0S01S 000 - 
4 4 501 g20124 DEVERR: .ASCIZ /LAST XMIT CAUSED VT61 HANG/<15><12> 
4 1 Gea 04 
4 2126 030466 10 


] 







047101 006507 O000le2 


41525 DKBD: .ASCII /PRODUCTION KEYBOARD TEST. 10 ERRORS CAUSES TEST EXIT./<15><12> 
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OZVTH.P1l TRAP TABLE SEQ 0091 


43839 026571 104 OSC pe -ASCIZ /DEPRESS KEYS FROM LEFT TO RIGHT/<15><12> 


aes Oebble O46040 043 
4394 DEES besti0 1 
4395 19 Hat er O42S2ee DLSHFT: .ASCIZ /DEPRESS LEFT SHIFT KEY AND THE “A” KEY 7<15><12> 
43% 0S1 043105 
4397 Ge0ie4% 944123 O43111 
4398 Oe0ie4 O42513 020131 
Reanae 


E 
a2 
Re 







4401 026676 


~ 
GJ) 


020104 
4400 o4o442 

7 OHe513 020131 
Mir OSD10S O42S22 DTOP: .ASCIZ /DEPRESS KEYS IN TOP ROW/<15><12> 
WUD] DBESTS asides puoue peaeas 
4405 026720 O20123 O47111 
4406 026726 050117 051049 053517 
4407 026734 OOSOIS 000 
W403 026737 104 OS0105 O42522 DRSHFT: .ASCIZ /DEPRESS RIGHT SHIFT KEY AND THE “A KEY /<15><12) 
4410 026744 051523 051040 043511 
4411 G26752 052110 O51440 O44510 
oe Bee fee Bee Be 
4414 026774 O4251 1040 021101 
4415 ane psig pedere 006440 
wai? BerOt ieee 1120 OSISOS DSEC: .ASCIZ /DEPRESS KEYS IN SECOND ROW/<15><12> 
4418 1 2513 051531 
4419 Hib guese3 
4420 27034 047503 O42116 051040 
Wiel Ge7042 053517 O0S01S 000 
4433 27047 104 050105 oy DTHRD: .ASCIZ /DEPRESS KEYS IN THIRD ROW BEGINNING WITH °A’/<15><12> 
uuse am 7111 OS2040 
wice feroro Gia) Oieloe Dei0 
wea BEFION DaeTti art eat 
4429 rae 053440 Osetlt 110 
4431 Qe71 Biss! Oslied Obl DCONT: .ASCIZ /DEPRESS CONTROL KEY ,AND THE "A” KEY /<15><12> 
Wize 134 O1e3 04 052116 
44 142 020114 O42513 
4434 027150 1 
4435 eas 

153 

027176 





ISOS BOT: .ASCIZ /DEPRESS KEYS IN FORTH ROW EXCEPT SHIFT KEYS/<15><12> 










LO? 





4439 027204 Oe0l23 O4e513 051531 
4440 Oe7ele O4444O 020116 047506 
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MAINDEC-11 
DZVTH.P1l SEQ 0092 


4441 27220 OSelee 020110 O47See 

wise Oe7eee 020k 4105 pMeSt 

444 S21 1440 Q4451 

4444 0521 svi UstE0S 
00001 


027254 O4eS04 051120 95iS0S DSPCE: .ASCIZ /DEPRESS SPACE BAR/<15><12> 


4451 027300 O4eS04% 051120 O5S1S0S OKPD: =.ASCIZ /DEPRESS KEYPAD KEYS,LEFT TO RIGHT, TOP TO BOTTOM/<15><12> 







1 S13 0131 
3 el 440 
t] 1 14 106 
445S 027330 020117 See 
4456 027336 O441 026124 
44S7 027344 050117 020117 
anes 027352 052124 046517 
027360 005015 
4461 027363 113 DKBERR: .ASCII /KEYBOARD ERROR,KEY POSITION IN ROW SHOULD BE / 
4462 027370 051101 020104 
4463 027376 O47S22e Oeblee O4e513 
4454 020131 
4465 O27412 O44524 7117 
YSEE 020116 020127 
4467 O27426 O44le3 052517 O42114 
4468 927434 041040 020105 
4469 eae o0S015 KYSTRK: .ASCII / /<«15><12> 
4470 1517 O4052e4% 020114 -ASCIZ /OCTAL GD, OCTAL BAD/<15><12> 
4471 O274S2 042107 O20054 041517 
4472 027460 020114 o40S0e 
4473 O27466 O06504 000012 
4474 027472 020040 O20040 OSPCE: .ASCIZ / / 
nal 027500 000 
4477 027501 036 076 020 ROW!: .BYTE 36,76,20,13,32,12,54,44, 14,41,71,57,63,64,3,114,0 
4478 027504 013 032 Ole 
4479 027507 0S4 O44 0:4 
4480 027512 041 071 057 
4481 027515 063 064 003 
es 027520 114 000 
4484 027522 026 030 ROW2: .BYTE 26,56,30,73,S2,22,55,34,24,31,51,77,62,61,2,0 
4485 te 073 0 O2e 
4Hes oss 034 024 
4487 027533 031 051 077 
4488 027536 O62 1 o02 
quee 027541 000 
4491 ea O46 040 0s3 46,40,53,23,72,42,4S,74,11,21,47,27,66,0 
4490 023 072 O42 
4493 027550 04S 011 
4494 027553 0el 47 
4495 027556 
4496 


16,70,60, f4[d9 42, 25,35, 75,65, 37, 115,67,0 

























4 
aeas 027576 001 000 CNTRA: .BYTE 01,0 
4505S 027€00 101 000 SHFTA: .BYTE 101,0 
uebp 027602 015 000 SPCB: .BYTE 15,0 
4509 027604 113 004 103 KYPD: .BYTE 113,04,103,104,1,112,101,102,6,7,106,100,5 
4510 027607 104 001 lle 
4511 027612 101 102 006 
4Sl2 027615 007 06 100 
4513 00S 
4514 027621 010 105 107 -BYTE 10,105,107,110,17,111,0 
4515 110 017 111 
4516 027627 000 
4517 
ues - EVEN 
ues 027630 000500 RCRLB: .BLKB 500 ;RECEIVE CIRCULAR BUFFER 
4521 030330 000500 TCRLB: .BLKB 500 ; TRANSMIT CIRCULAR BUFFER 
4See 031030 000000 ABUFP: .WORD OQ 
4523 031032 ABBUF: .BLKB SO. 
45e4 031114 
4525 oo0001 END 
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DZVTH.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0094 
ABBUF 931032 811 2516 2518 45238 
ABSXT ates 34538 
ABUFP 1030 811% 1087 1119 1122 1134 1137 1348 1349 1356 1904 1907 1911% _ 251S% 
8 Geese 2519% 2757 2758 2870 2874 3350% 3352 3355 3356* 3422 3427 
RESCO § 014542 e587 Ss ( 2b 19% 
RESCP. 014534 26168 © 
ALWONT 902200 6518 913 1175 1616 2441 
ROUT 012536 e177 3=— 22278 
ASESC 014356 eSce = eS B48 
ASTRT 003062 814 8278 1839 1910 1991 2016 2053 
AUTO 002230 141 6708 
OA 002240 6728 676 755 2127 





BASC3 O04e2e 1059s « 10608 
013250 74 cere 23708 
BEL 001746 442% 1926 
Bivect te iviEe 32078 3365 3379 3385 
BITOO = 000001 1058 = 115 803 1830 2205 eel 
BITO1 = O0000e 1048 = 114 806 S770 sel) SH 
Hipiges = EH Eases ax 
BI T04 = Bo0020 10i¢ = =1ll 
BITOS = 1008 110 
BITO& = 000100 998 =: 109 
BITO7 = 000200 988 6.108 )=S—s(stel4 = 48S 
BIT08 = 000400 978) =6_107— 3531 
BITOS = 001000 968 106 3601 
BIT1 = 00000e 1148 
BIT10 = 00e000 95% sear 
BiT1i1 = 004000 948 3546 
BITle = 010000 9348 








1817 
1333% 


2037% 
3359% 


1982 
2226 


e 
e96S5* 


1369 


1368 


1467 


NO? 


31508 
1642% 


2046 
3360 


esse 


2617 


917% 
348 
2966 


at) 


13758 


27918 


1776 


BITI3 = See 3590 
BITI4 = Sle 3517 
BITIS = 90% 
BITte = 113% 
BIT3 = llee 
TH = tide 
Tt = ie 
2 1088 
BIT8 = 0004 1078 
BITS = 001 106% 
BLDADA possie eae ius 
Erbin pisibe 1887" aieie 3158 
BLDINC 017076 1028 1069 1306 1492 
BLOTST 002410 708 711 716% 
BLKM 002224 6618 775% 1061% 1299% 
02004 70 33738 
BPTVEC= 000014 leek 
T 6548 1812% 1824 1828% 
2394s 414 2756* 2762% 
BUMPCT 020344 3421 34328 
BYSTOR Theat 1498% 2854 29028 2947% 
CALCK Q17515 1314 ell 2639 328948 
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DZVTH.P11 CROSS REFERENCE TABLE: -- USER SYMBOLS 
CARRT 001750 4448 1724 1735 1934 
CDEV Ol2e4e 673 705 709 2l6S# 
CDEVA Ole3le 217S5% 2181 2187 2223 
CDWN 001764 4608 
CESAM 014526 2601 2605 09 2611 
CHKITT 915766 2883 2887 2689 289148 
CHOM 001760 4S54# 1184 1308 1647 
CHRD 002160 6438 783% SEb% 867 
2334% 2336% 2337% 2338 
2960% 2962 2963 2964% 
CKABRT 017572 1836 1988 33198 
CKDAT 005220 1204 l2ebs 
CKEOM 003564 944 S4ae 
CKEXT 006100 1321 1346 1355 1362 
CKGP = 000106 S928 2606 
CKKBD 017716 2045 33508 
CKLIN 004070 1023 10258 
CKMEM 005260 1227 12378 
CKMNT OO03466 931 9338 
CKOFF  O20S60 2893 3082 34938 
CKSCRA 006736 154S 15478 
CKSCRB 1563 15658 
CKSFT 15366 1081 1092 1245 1329 
CKSRC 746 13478 1357 
CKSTR 015734 2863 2873 28828 
CKSUM = 3788 1315 2696 2713 
CKSUMA 442 1296 12988 
CKSUMB itt 1323 igaie 
CKVST 1 2881 34a 
CLFT 001766 4638 1452 
CLMAIN 011512 2043 2054s 
CLRCK 002014 4968 
G aga 1229 1324 1363 
CLT 1 r] 
| CMPOS 16314 1637 29798 
id peo bs 336 33958 
7s 7 45038 


3157 
1814% 


2326% 


3243 
2622 
2117% 


e3S2 
2967 


2896 


2817 


3169 

2675 + 38=2678% 
2340* 2342 

3258 3268 

2627 Ss 2633 

2257% 2259 

e356 2376% 
3351%  3355% 
3084 

28358 291 


e683* e710 285e% 
2346% 2350%  2372% 
2635 

2261 2264*  2268% 
2476% 2477% 2478 
3357 8§=©63384 

3075 





3021% 


2379% 


SEQ 0095 


2328 
2959* 





COMSP = 9000 se48 S62 2G08 SEZ BOs 







24e38 cc4 
Ts lise $28 
1665 Ay 
. 4348 
CRCSR ~ile 
CRRUL 30378 
T 4578 1413 
618s g 933 1635 1641 
CUP e 1425 


0 ici? 1423 ise4 1684 1722 1738 = 29878 


eriay se 
g 





s 1 
ae is et 
1XT 006314 1410 ro) 14348 
Ks D07S7€ 1661 1665 ié 
007640 1618 168 1877 1680 16878 
MAINDEC-11-DZVTH-A MACY1L tet SEP-76 10:22 PAGE S6 
-Pll CROSS REFERENCE T -- USER SYMBOLS SEQ 0096 
1 eng 41768 
75° 
1 in 1 ai6ee 
ie east 


1073 4114* lle0e 1135* 22838 2760% 3133% 31408 
997 1064 1624 


3 sou 


1074 1115 1121 1136 §=62eBY Ss 271 sles 


Be 
PR RUERR ES 


SARS RENANIRG EN SUZETA BSE 


ReRERNRNS SE 


A RTE, 








ese 


Sey 
Fe 

REBSH BBE 
Seuanan sees 
Rinne einer 
piste 















R 
g 


Gey “a8 


~< 

=z 
roe 
~scr 
oe 


iz 
re 
wo 
—t 
ae 
pas 
<p 


pb 


oO 
“ 


Snape yd 


qi 


1560 
4 
1uee 
re 
ie1e 





rep 
ie 
bie 
prs 
Aor 
Ee 
EMAIN 
Enis 
a 
a 





. 
ee 


} 
j 
| 


ies? 
e 
4 
ize 
48S8 


ats 


: 2050 2057 
1965 43538 
a les 
a 3 2745 3189 
eCbe 44098 
346 
2064 44178 
1967 2052 31838 3457 
4546 8 
44748 
8 169 
43258 


PABBA RR SRI AOS 


GWG) 
fm Rs 
wr 


SBSBR 





40198 
40328 


| 
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REFERENCE TABLE -- USER SYMBOLS 


Le 
WG 
Es 


Bee 


SELLS ECL 
iG) 


Fis 


Re 


COS 


* ii * 1505 7% “1351« 657# j66e# e329% 2232% 2858% 2866s 
* 3% 37% ef 473% 476% 3493% S496 





74 862174) =—s e488 2287 
749 769% 





SEQ 6097 





















z 

A 
UO 
=) 

bs 


: 


_ 
oe 


ec | 


Gugeencwee & 


fuss 
£ 


post fens 
ACO 12214 
FEXIT 476 


ss 
atk 


FTLCNT 

FTLEXT 016070 
GCMD 13% 
GORD 

GOCURP 

GOSCRL 

GOSTRK 

GETON 015256 
~ S 
GOTON 

GTCR 

GTEXT 





cose 
1188 


Se aoe 


Or ul 
S 


P 


r} 3417 3425 
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REFERENCE T -- USER SYMBOLS 


Bes Seagsoese sees 


puedes) 


8 


one ~“ 
‘ o 
bee 
ae 











DO8 


18378 


1178-1313 1356 1619 2348 e411 2546 e862 2931 3193 
SEQ 0098 


3S23# 3525# 35284 


17798 . 

eee at oe 2590% 2596% 2613% cb408 2944e 3424s 

ll 1307, 1417s 1451 1646 1764 8=61834 861974 223 3427 
688 1038 1066 lle 1186 «=s«1309'sis13l10si—i«iHC (CBO e74 2744 
999 1453 1462 1725 

831 1514 

936 938 2777 

6S1 907 908 

10938 

1968 = 2013 

S440 86. 34508 

20518 

34368 


Siee 86913 1175 1207# 1353% 1616 2441 2449% 2738% 2879%  3058% 


886 889 ese2—ti—i‘éizsdSSS 902 


2145 §=2173 








o 
@ 
re} 
xz 
a 
CT 
“ 
te | 
-—}€ 
° 
a. 
ta 
° 
La | 
tiv) 
we SS —m 
oo 
tee 
ins 
a 
~ 
oat 
e 


764 
of 


CROSS REFERENCE TABLE -- USER SYMBOLS 
tY 





2170% 2230% 
1941 19448 


2169% 
24698 
1937 





- 


SERR SeRE 
SPE e Ra eoRRRAAS 
SavOCE Ne reanannS 


eras 


= 


aioe take 





e998 = 3000# 


3270 3429 
2394 2996# 


3266 
2986* 
2439 





2554 
2398S 
2124 





1983 
2983 
1837 











BR 2 
@ 
2 
os q 
rite ro Ss as + z 3 
=" ie Ree es z. ; 
ig g vases ie & 
h SGesssias SPOaen aS ieee nna S 
20 90 oe = ao te te 323 =| 
PERE REE pe See Soe ra 


i 
' 


nee 
Babe 5 


ROEC-1 


- 


3f 


oEBGEE vPeneel itacEoen Mages ae 














9 
z 
= 


ee 
oe 


3° 
i" a 
= 


“ou 
Coiond 
6 


SF 


‘ 
SE 


PUREE ee 
BE 
— 


: 


asus 


QUST 

RABT 002110 
RBBUF 014630 
RBUFP O14634 
RCRLB 027630 
fan _ Ses 
RDCUR 

RDENA = 1 
REBUF 014632 
RECAD 013650 
rece s pase 
ae 
RECTM 013060 
RECXT 14352 
REDn = 

RERR = 100000 
RESET O02126 
RESETV O15146 


MAINDEC- 
DZVTH.P1 
RESPTR 016136 


m 
w 
ma 
-o 
u 
8 
Oo 


VAIN IEO DH, 


— 


n 


neue TTS 
Bs SRlasteasy 


& 
3 
3 
3 
© 
<3 


CROSS REFERENCE TABLE -- USER SYMBOLS 


ll 


hs wo bs pape be 

Hand yA pr 

FUE OF 
ce 


ia 
ae 


Tu 

De SR 
a 
wmuloo 


eC 


a 


men yes fe 


183 
-76 10:22 PAGE 91 
YMBOLS 





FO8 


3649# 


e448 
888% 


3904% 
1 
1757% 
2549% 
d423% 
3408 


es98 
2207 


es4s# 
1318 


1161 


1375 


3741% 


1579 
26378 


2s40% 


2872 


1607 


29398 


SEG 0100 








B 






1704 






SEQ 0101 












25728 











Ri =7000001 418 69S 639 7el 748% * 841 948% 953% 979% 981% 982% 
gcge eee aere feo * 939 1000% 1G03% 1008 1026% 029% 1060% 
1064 1065% 1066% 1067% 11682% 41183% 1184 =1185% 1186% 1187% 1188% 1198% 1201 
1215 223 1 1c2 1231 le3e 1234 1304% 1307% 1308% 1309% 1310% 1311s 
1335% idase 19118 86141 iiss 1424 1446% 1450% 14S1% 14Se% 1453% L4S4e 14 
1490# 14 1499% 1S48% 15678 l623% 1 1625 1626 1627% 1643% 1644 1646% 
1647% 1646% 1649% 1656% 1658 1678% 1679 1683 1685S 1705 723% 724% 8 §=61725% 
1726% 1759% 615% 1907% 1917 1919 1921 1926 1930 1934 1938 1976% 1979 

MAINDEC-11-DZVTH-A MACY11 27(732) -76 1 32 





a 
2 
a 


rae 
aoe 
ae 
ngs 
Ce 
oe 
ne 
on 
tae 
pyre 

: 






aan 

ae 
z 
: 
y 
: 


: 
= 
eek 
2 
e 
: 





bd 6 
a] 

oi | 
[ae 






ee 










R 





— 5G) 
Tuo" Uta ~} 
HE 









a 
sess 


4age 


Fed 


= 
ptt 


ES ERURADEREO RS Sead 


bo pa be Bs 
mew 


BREE 


“WC Ht U0 08 08 00 OO Ob Oe OO 88 Oe Ot Oe 


Bees EE 


3 
; 


ag € 


aE 





87 


WO hoes LUE 


384S% 


2814 


3214# 


3366 
3831 . 


208 
3898% 
3939% 


2826* 
3215% 


3533 


20-SEP-76 10:22 PAGE 94 


ABLE -- USER SYMBOLS 


996 §6=«-: 1026 
1623 - 1643 
e719# 2941 

938% 940 
2689 2691% 
e241 
apf 

le 
3066 
1465 


3860% 3862 3872 

3899* 3900%  3901% 
3940 

234ex 

3216% 3366% 3367 
3539 3546 3583 

1304 1335 1392 

1705 1723 1759 

3326 3408%  34S4x 
1167% 1173% 1178% 
2700 2701 2703% 
1406 1412 1498 

3407 3454 4Sel8 


3874 3876 
3902# 3903 
3369: 3371% 
3890 3595 
1448 =: 1489 
1815 = =1976 
1609%  1614% 
2e705* e714% 
1511 1566 


3877 


3309% 


3373# 


3601 


1494 
1979 


1619% 
e7els 


1S82 


3878 
3913 


3374 


SEQ 0104 
1499 
2691 


1921# 
29e5% 


1671 












4 
io 
— 
oO 
i] 
— 


eta t= 
= 


gees 
mae 


aad 
a 
Ss 


0054 
9061 
006316 
C064 


444-44 - 
HAART 
yd oa pad ped ad pd Zn 
a2 bas fe pee bee Pane ee 
PNLWMH-O - 


0067; 
00714e 
TST16 ~=©.00764 
MAINDEC-11-DZVTH-A 


DZVTH.P1l CROSS 
| 


REFERENCE TABLE -- USER SYMBOLS SEQ 0105 


2169 21888 JO8 
















771# 2689 862701 e7e0s 
401# 1071 1317 1342 1630 1651 1819 1985 2184 2188 2483 2490 2538 
271 ees e310 e939 323 317] 3134 

1 1805 1835 1875 es8e8 0=0e738S 747s 778 

84 





2480 
we 1166 1217 1237 1239 1608 3170 





4008 e402 e409 8 auile 





67e 690 = 21348 






353 355 357 66ee 835%  2731% 
61S 2456 2464s 





17008 
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ae 


a 





= 4 
a 
—£ 


: 





dg 





z 
R 
3 





5 
: 





g 
2 
= 


ae 





g 





s 





a eed 





XM 


: 


sists 


po hs BP 


oo 


ena 


i 


Bge8 
ARR 


ITT 1 
MAINDEC-31-O2ZVTH-A 


DZVTH.P1) 


| YMITi 


016026 
xMKIL = 000200 _ 


935 
1924 
_ 3618 6596 


4168 747% 
4328 761% 
4298 862 
4288 a8 
2250 23 
6608 777% 
1165% 1194% 


937 
29088 





939 
2929 
2539 





941 
2932 
e672 


28578 2892 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1117 


805 808 
3585 3593 
39588 
es0g9. 0 324s 

g18* 1808 
2819s Se41 

957 960 
1331# } # 
1986 11 


1984* 2680 
3437 

1820 =: 1986 
1130 0s: 1168 


1863 
3696 


2707% 
e7le 


1174 


1866 
3713 


1179 


2109 
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16998 17508 
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630% 1707 
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577 
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2979 
3290 382 
2332 
2738 
3850 
1910 


677 






SOUSSERE BG TAR GG GREE Re S eeteRmeNaeggg 2s 
cenRe: fy A RRS] eg SS oe 
TEGR S SS) MRI of 2 EERSEEY es 
Bae a seat SSNS «Eg & RNRRARERENTA? FP 






2 
USERS Bh ER RRS 
Seeecneyy ae RE — SAE 8 
ahs Cogrmamersaraas ¢ semeae 

PEER BAG MERE | AER 3 ORIN 
i Ge REAVER 4 A EES A 
Ay 
: 


2464 


S SUMED SMR SES Peg 


eed ond ers oh GH 


SHMESEDCNETES BEG 
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Sa CMR RM SRR SR REE 
Bebe asbus SERN NM eae SiS 
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741 
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3969 
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iis UMMAOENIENEOR s crag 


weed ag dH dee 


gy SISRMRAARSREINSE * UEEs 
a] ORERCRRLURMIERAR INE © spas 
ay SBRUERTRRUIRURGTDEE * sya 
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po 
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o 
8 


S 
3 


MAINDEC-11-DZVTH-A 
CROSS 


DZVTH.P11 





678 
S21 


BESS 
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3%1 
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